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NOTE DE L'ÉDITEUR 


Tous les jeux du présent volume, originellement conçus et écrits pour 
l'ORIC-1, ont été adaptés à l'ATMOS et dûment testés sur cette machine. 
Les trente jeux fonctionnent donc tous sur ATMOS. 

La plupart d’entre eux tournent également sur ORIC-1. Seuls les six jeux 
suivants ne tournent pas sur ORIC-1 : Jeux n° : 1 - 10 - 16 - 17 - 18 - 27. 


Préface 


Vous découvrirez dans ce livre de nombreux programmes nouveaux et captivants 
adaptés à votre Oric. Certains sont des jeux, d’autres de pures distractions (utilisant le 
son et les graphiques). Les jeux sont de différentes natures. Les danseurs, par 
exemple, est un « jeu d’arcade » qui exige de vous une réponse rapide et précise. Avec 
quelques jeux, vous avez le temps d'exercer votre esprit. Par exemple, dans Ne criez 
pas au loup, vous êtes pourchassé par une meute de loups. Vous pouvez les duper si 
vous réfléchissez à vos mouvements. Et rien ne presse ; le déplacement des loups 
n'intervient qu'après votre propre mouvement. Les jeux du troisième type 
ressemblent à des puzzles dans lesquels vous avez à remettre en ordre les divers 
éléments. 

Les listings sont issus de programmes exécutables, sans erreur. Chaque 
programme est accompagné d'informations qui en décrivent l’objet général. 
Habituellement, pour donner une idée de ce que vous pouvez attendre du 
programme, un exemple d’écran est fourni. De plus, de courtes descriptions du 
programme et de ses différents sous-programmes sont données pour vous aider à en 
comprendre le fonctionnement. 

Chaque programme a été écrit dans un style qui devrait vous permettre de 
l’appréhender dans son ensemble. Le mot BASIC GOTO n’est utilisé dans aucun 
programme. En effet, un emploi excessif de ce mot tend à rendre un programme 
difficile à comprendre, et conduit à ce que l’on appelle couramment une 
programmation «spaghetti». Il est relativement facile d'éviter l’emploi de Goro sur 
l’'Oric, les programmes le prouvent à l’évidence. 

Toutes les instructions GosUB sont du type GOSUB BLANK où la variable BLANK 
reçoit une valeur dans les premières lignes du programme. Cela facilite la 
renumérotation des lignes. Un court programme de renumérotation est donné en 
annexe, vous pouvez l’ajouter à la fin de vos programmes si vous le désirez. 

Soyez attentif lorsque vous tapez un programme, et tout particulièrement aux 
signes deux-points et point-virgule, au chiffre 1 et à la lettre I et enfin au chiffre Ÿ et à 
la lettre O. Lorsque vous avez fini de taper un programme, sauvegardez le (CSAVE) 
avant de l’exécuter (RUN), au cas où vous auriez fait une erreur de frappe. Tous les 
programmes sont garantis sans erreur ; ainsi, si une erreur de syntaxe (SYNTAX ERROR) 
se produit, comparez soigneusement votre programme au listing de ce livre. Notez 
que les espaces présents dans les Listings répondent à un souci de clarté ; il n’est pas 
nécessaire de les taper. 

Nous avons pris la peine de nous assurer que tous les programmes sont 
«robustes». En conséquence, ils ne devraient pas se bloquer si vous tapez sur une 
mauvaise touche. Par exemple, si le programme attend un chiffre et que vous 
introduisiez par erreur une lettre, il ne se bloquera pas. 

Les programmes ont été entièrement testés aussi bien par Ann, Kora et Inga que 
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par de nombreux visiteurs intègres. Je les remercie tous pour avoir été des «cobayes » 
et pour avoir fait de nombreuses remarques pertinentes. Je remercie aussi Kathleen 
McCaffrey qui a réussi à transformer mes brouillons en un texte lisible à l’aide d’un 
ordinateur ACT SIRIUS 1. 


Czes Kosniowski 
Newcastle, juin 1983 
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1. La chasse au trésor 


Voici un jeu simple dans lequel vous avez à trouver l'emplacement d’un 
trésor caché. De nombreux buissons sont clairement répartis sur votre écran. 
Le trésor est caché sous l’un d’eux. Vous êtes au buisson qui clignote et 
pouvez vous déplacer de buisson en buisson en utilisant la barre 
d’espacement, votre Atfmos vous indiquera approximativement quelle 
distance vous sépare du trésor. Approximativement, parce que le nombre 
affiché est la partie entière de cette distance. 

Pour vous embrouiller, l’Atmos affichera parfois un point d’interroga- 
tion au lieu de la distance. En outre, si celle-ci est supérieure ou égale à 10, la 
lettre X est affichée. 

Il n’y a pas de limite au nombre de tentatives autorisées, mais essayez de 
trouver le trésor en trois coups environ. 


CHASSE AU TRÉSOR 


3 
+] 
J 


RÉ RHEKHE HI 
# 
# 


RCE 


+kH#HHHKN D 
RÉ EHK- +. 
# + # # # QU Bb PB Pb 
ER EEE 
HHHHÉHÉH EEK # + 
HRK E + + 
HR EHE EEK # # + 

Je] Ù 4 
JÉRHEKHÉXÉEH + # 
JE HE JD DE + + 


# 
2 
2 
3 
# 
# 
# 
# 
# 
# 


HHHRHHHRE + + — 
HER + + 


# 


Utilisez les touches curseur pour vous déplacer 
Utilisez la <barre d'espacement> pour voir. 





11 


10 
20 
30 
40 
90 
60 
100 
110 
120 
130 
140 
150 


160 : 


170 


180 : 


190 
200 
210 
220 
230 
240 
250 
260 
500 
210 
920 
520 
540 
550 
960 
970 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
200 
201 
cem 
202 
203 


204 


12 


REM EEE 
REM * LA CHASSE AU TRESOR # 
REM 2626 DEDE DE DE DE DE DEEE EEE 
REM 
VISU=500: INIT=1000  : INFO=2000 
FING:WAIT 20:PING 

REM * THE MAIN PROGRAM *# 

GOSUER INFO: GOSUR INIT 

REPEAT 

5 PLOT X,Y,12:GET K$:KK=ASC(K$) :PLOT X,Y,8 
: SH=32 THEN GOSUE VISU 
5: IF KK=8 AND X:4 THEN X=X-2 





IF KK=9 AND X(30 THEN X=X+2 
IF KK=10 AND Y<22 THEN Y=Y+2 


IF EE=11 AND Y:2 THEN Y=Y-2 





UNTIL STATE 

SHOOT:WAIT 40:PING:WAIT 40:PING 

PRINT CHR$(14)+E$+"L"3;GSPC(11)35 "BIEN JOUE" 
FRINT Eg$g+"A"+" Autre partie? O ou N" 

PRINT CHR$ (14) +CHRS& (11) 5 : FING 

REFEAT:GET ES$:UNTIL E$="0" OR K$="N" 

IF E$="0" THEN RUN 

CLS:PING:FRINT "A la prochaine.":FOKE #26A,3:END 
REM * VISU 

IF SCRN(X+1,Y)25%25 THEN RETURN 

DIST=INT (SOR ( (MM—X) # (MM—X) + (NN—Y) # (NN-Y) )/2) 
A$=CHR$ (48+DIST) 

IF DIST:9 THEN A$="Xx" 

IF DIST)0 AND RND(1)(.5 THEN A$="?" 

FLOT X+1,Y,A$:STATE=DIST=0 

RETURN 
O REM *# INITialisation * 
Q CLS:PRINT SFC(10):"LA CHASSE AU TRESOR":PRINT 
Q FOR I=1 TO 11 

0 : PRINT SPC(2); 
Q FOR J=0 TO 13 
Q PRINT CHR$(27)+"H#"; 
Q NEXT 
Q 2: PRINT: PRINT 
Q NEXT 
Q PRINT Eg$+"A Curseurs-: Mouvement" 
O PRINT:FRINT Eg$+"D Distance-Barre d’espacement"; 
Q PRINT CHR$(11) :CHR$S(11) :CHR$&(11) 
Q X=16:Y=12 *INITIAL FOSITION 
Q MM=2#INT (RND (9) #14+1) +2: NN=2#INT (RND(9)#11+1) 
Q STATE=FALSE 
Q RETURN 

Q REM * INFOrmation +* 
Q POFE #26A,10 ‘’Annule le bruit du curseur et de la barre d’espa 
ent 
O INK O:PAFER 3: CLS:PRINT 
O0 E$=" "+CHR$ (27) : D$=E$+"J"+CHR$ (4) 
O PRINT D$;:SPC(5)5"LA CHASSE AU TRESOR":FRINT D$ 


2050 FRINT: PRINT 

2060 PRINT D#:SPC(5):"Par Czes Kosniowski":FRINT D$ 

2070 FRINT:PRINT E$+"A Trouvez le tresor cache." 

2080 FRINT "En pressant la barre d'espace on vous donnera ": 
2090 FRINT "la distance approximative du tresor.Farfois ": 
2100 PRINT "un ? apparait pour vous embrouiller." 

2110 PRINT "Un X signifie que la distance est superieure"; 
2120 FRINT" ou egale a 10. BONNE CHANCE" 

2130 PFRINT:PRINT E$+"B"+E$+"L Fressez 0 pour continuer." 
2140 REFEAT:K$=KEYS$:F=RND (1) :UNTIL KH$="0" 

2145 INIT=1000 

2150 RETURN 


PROGRAMME PRINCIPAL 


La partie principale du programme attend que vous pressiez une touche. 
Si vous actionnez un curseur (valeurs 8 à 11 du code ASCII), alors la position 
du buisson clignotant est modifiée. Ceci est réalisé en utilisant PLOT x, y, 8 qui 
annule le clignotement, et PLOT x, y, 12 qui le provoque. Remarquez que la 
position (x + 2, y) contient déjà le caractère de contrôle cHR$ (27) + CHR$ 
(8) qui annule aussi le clignotement et par conséquent seul le buisson de 
coordonnées (x + 1, y) clignote. Si la barre d’espacement (valeur 32 du code 
ASCII) est pressée, alors le sous-programme visu vous affiche la distance qui 
vous sépare du trésor. Lorsque la distance est zéro, la valeur de la variable 
STATE est vraie (TRUE) et le programme sort de la boucle. Divers effets de son 
et messages sont alors émis. 


SOUS-PROGRAMMES 


500 VISUalisation 

Il calcule la distance (pis) qui vous sépare du trésor. Si cette distance 
est supérieure ou égale à 10, alors le nombre est transformé en X, c’est 
pourquoi, environ une fois sur deux, la distance n’est pas révélée. Lorsque 
cette distance est nulle, la valeur de STATE devient vraie (TRUE) ce qui conduit 
le programme vers les étapes finales. 


1000 INITialisation 

Il provoque l’affichage initial des buissons. La position du trésor est 
calculée aléatoirement. Remarquez que PRINT CHR$ (27) + «H # » ; provoque 
l'affichage d’un blanc suivi du symbole #. Le blanc contient le caractère de 
contrôle cHR$ (27) + cHR$ (8) qui est utilisé pour arrêter le clignotement de 
tous les caractères situés à droite de cette position. 
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2000 INFOrmation 

Un texte qui décrit sommairement ce jeu est contenu dans ce 
sous-programme. 

Remarque : 

Lorsque vous allumez votre Oric et que vous demandez un nombre 
aléatoire, vous obtenez la même séquence de nombres. Pour donner un 
caractère de hasard à cette séquence, une ligne a été placée dans ce 
programme qui permet à l’ordinateur de choisir (et d'ignorer) des nombres 
aléatoires jusqu’à ce que le joueur presse la touche Y. Vous trouverez une 
telle ligne dans la plupart des programmes de ce livre. 
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2. Ne criez pas au loup 


Imaginez que vous êtes en pleine forêt et qu’il se fait tard. Vous devez 
rentrer chez vous (H sur l’écran). De nombreux loups sont dans les parages 
prêts à vous mordre s’ils viennent près de vous. Pouvez-vous regagner votre 
maison sans dommage ? 

Pour vous déplacer, utilisez les curseurs et les touches suivantes (qui 
permettent les déplacements en diagonale) : 

1 en haut à gauche \ en haut à droite 
Z en bas à gauche  / en bas à droite 

Grâce à ces touches vous pouvez vous faufiler entre les arbres. Prenez 
votre temps et réfléchissez à tous vos mouvements. Si vous êtes poursuivi par 
les loups — ne vous découragez pas — vous pouvez essayer de déjouer leurs 
intentions. Les loups sont assez lourdauds et sont souvent coincés par les 
arbres et les coins. Ils ne peuvent pas se déplacer en diagonale entre les 
arbres. 





NE CRIEZ PAS AU LOUP 


8 loups rôdent aux alentours 
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A chaque fois que vous réussissez à rentrer chez vous, vous pouvez jouer 


à nouveau — avec un loup de plus. 


Les loups restent cachés pendant vos premiers mouvements — ils se 


déplacent cependant autour de vous. Prenez garde. Et ne criez pas au loup. 


10 REM HEURE DEDEDE DE DEEE 


20 


REM * NE CRIEZ PAS AU LOUP *# 


30 REM HUE DE DE DEMEDEDE DE DE DE JDE TEE 


40 
50 

60 

70 

100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
500 
510 
520 
530 
540 
600 
610 
620 
630 
640 


16 


REM 
AFPARI=500:LDEPL=600: DUR=700: DEFL=800 
IHIT=1000: CHR=1500: INFO=2000 
PING:WAIT 20:PFING 


REM ## FROGRAMME PRINCIPAL *%# 
GOSUER INFO:GOSUR CHR 
REFEAT 
: GOSUB IHIT 
: REPEAT 
5: PRINT H$:REFEAT:UNTIL KHEY$="" 
REFEAT 
GET G$:G=ASC(G#) 
ANS=FALSE 
IF G=49 OR G=90 OK G=47 OR G=92 THEN ANS=TRUE 
IF 67 AND G‘12 THEN ANS=TRUE 
UNTIL ANS 
XN=X : YN=Y 
IF (G=49 OR G=90 OR G=8) AND XN:2 THEN XN=XN-1 
IF (6-92 OR G=47 OR G=9) AND XN£25 THEN XN=XN+1 
IF (G=90 OR G=47 OR G=10) AND YN£23 THEN YN=YN+i 
IF (G=49 OR G=92 OR G=1i1) AND YN THEN YN=YN-1 
PLOT X,Y,32:WW=SCRN(XN, YN) 
IF WW=:2 OR WW=72 THEN X=XN: Y=YN 
PLOT X,Y,Z 
IF X=3Z AND Y=5 THEN FING:WAIT 20:PING:STATE=1 
PRINT W$:TEST=FALSE: XY=SCRN (A (NW+1) ,E (NW+1) ) 
IF NW£=WO AND RND(1)#.3 AND XY=32 THEN TEST=TRUE 
GOSUB LDEFL-TEST+*(AFPARI-LDEFL) 
UNTIL STATE 
PRINT A$ 
: REPEAT:GET K$:UNTIL KE$="0" OR K$="N" 
UNTIL K$="N" 
CLS:FRINT "A la prochaine.":POKE #26A,3:END 
REM ** APFARItion *# 
NW=NW+1:PLOT A(NW),B(NW) ,W 
MUSIC 1,1,6,0:PLAY 3,0,1,2500:WAIT 40 
MUSIC 1,1,3,0:PLAY 5,0,1,2500:WAIT 50 
PLAY 0,0,0,0:RETURN 
REM #* Deplacement du Loup #%* 
IF STATE THEN RETURN 
FOR 1=0 TO WOLVES-1 
: GOSUB DEPL 
: IF I£=NW THEN FLOT A(I).,HR(I),32 







650 : A(I)=A:R(I)=B 
660 : IF IS=NW THEN GOSUR DUR 
670 NEXT 
680 RETURN 
700 REM #*#% DUR #+# 
710 FLOT A,B,W 
720 IF A#5X OR H£:Y OR STATE THEN RETURN 
30 FLOT X,Y, "DUR": ZAP: STATE=2 
740 RETURN 
B0Q REM #*# DEPL +*+# 
810 XX=(A(I)>X)-(A(I)EX): YY=(R(I) Y)-(B(I)EY) : S=0 
820 IF YY=0 THEN S=1:YY=1 
8:30 IF XX=0 THEN S=2:XX=1 
840 TEST=FALSE:T=-1 
850 REFEAT 
860 : T=T+1:A=ACI )+U(S, T )XXX: B=RQ I )+VCS, T )XYY 
870 : SS=SCRN(A,R): TT=SCRN(A(I),B): UU=SCRN(A,ER(I)) 
880 : IF SSW AND {TT<W OR UU£W) THEN TEST=TRUE 
890 UNTIL TEST OR T:7 
900 RETURN 
1000 REM **# INITialisation de l'ecran ** 
1010 FAFER Z:INE O:PRINT FRE(9):CLS 
WOLVES=WOLVES+ (WOLVES<20) # (STATE=1) 
1030 STATE=0 
1940 NW=-1 “Nombre de loups 
1050 FOR X=2 TO 36 
1060 : PLOT X,2,160:FLOT X,24,160 
1070 NEXT 
1080 PLOT 9 ,2,"NE CRIEZ FAS AU LOUF" 
1090 FOR Y=5 TO 27 
1100 : PLOT 2,Y, 160:PLOT 36, Y, 160 
1110 : FOR X=2 TO 35 
1120 : IF RND{9):%.75 THEN FLOT X,Y,160 
1130 NEXT:NEXT 
1140 PLOT 5,26,"I1 y a" 
1150 FLOT 16,26, MID$ (STRS$ (WOLVES) ,2) 
1160 FLOT 19,26,"loups alentour" 
1170 FOR Y=3 TO 7:FOR X=3 TO 6 
1180 : PLOT 29+X,Y,Z32:FLOT X,16+Y,32 
1190 NEXT:NEXT 
1200 FLOT 33,5,72:PLOT 4,21,27 
X=4:Y=21:7=57 
REM Fosition des loups 
FOR I=0 TO WOLVES-1 
: REPFEAT 
5 ACI)=INTIRND(1)#34+2): H(T)=INT (RND (1) #21+27) 
: UNTIL SCRAN(A(I),H(I))=32 AND KH(I)-A(I1)<#17 
1270 NEXT 
1280 RETURN 
1500 REM +x*x CHR ++ 
1510 H$=CHRS C30) +E$+"L'4HES+"A VOTRE COUF" 
1520 W$=CHR$# )+CHR$ (14) 
1530 A$=CHRS C0) +E$+"L'4+ES+"D Autre partie D ou N 
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1540 W=Z8:DIM A(20),H(20) 

1550 START=#B400+2:7%8 : AA=H#AQOO0 

1560 FOFE AA,2:IF PEEK(AA)< THEN START=START-#8600 

1570 FOR I=START TO START+7:READ R:FOHE 1,R:NEXT 

1580 START=START+8 

1590 FOR I=START TO START+7:READ R:FOFE I ,R:NEXT 

1600 STATE=0 

1610 FOR S=0 TO 2:FO0R T=0 TO 8 

1620 : READ U(S,T),V(S,T) 

16:70 NEXT:NEXT 

1640 RETURN 

1700 DATA 14,14,4,31,14,14,10,10 

1710 DATA 2,3,35,30,30,30,16,18 

1720 DATA 1,1,1,0,0,1,1,-1,-1,1,0,-1,-1,0,0,0,0,0 

1730 DATA 1,0,1,-1,1,1,0,-1,0,1,-1,-1,-1,1,-1,0,0,0 

1740 DATA 0,1,1,1,-1,1,1,0,-1,0,1,-1,-1,-1,0,-1,0,0 

2000 REM *#*# INFOrmation ** 

2010 E$=" "+CHR$ (27) : D$=E$+CHR$ (4)+"J" 

2020 FAFER 6:INE G:CLS: PRINT 

2030 FRINT D$;SPC(6)35"NE CRIEZ FAS AU LOUF'":FRINT:PRINT D$ 
PRINT:FRINT D$; SPC (6); "par Czes Fosniowski"; PRINT D$ 
2050 PRINT:FRINT"Vous etes en pleine foret et il y a des loups": 


ie 


2060 PRINT" dans les parages. Essayez de rentrer chez "à 
2080 PRINT "Vous pouvez vous faufiler entre les arbres,"i 

2090 PRINT "les loups,non." 

2100 PRINT:FRINT "CONTROLES: " 

2110 PRINT "Curseurs pour aller a gauche, a droite, en haut, a gauc 
he" 

2120 PRINT “ 1 pour Haut-Gauche \ pour Haut-Droite" 

2130 FRINT " Z pour Bas-Gauche / pour Bas-droite"” 

2150 PRINT "combien de loups voulez vous au debut?" 

2160 PRINT "Donnez un nombre entre 2 et 9:" 

2170 REFEAT:G#=KHEY$:GG=RND (1) :UNTIL G$>"1" AND G$<":" 

2180 WOLVES=VAL (6$) 

2190 FOFE #264,2 ‘Curseurs sans effet 

2200 RETURN 











PROGRAMME PRINCIPAL 


… La partie principale du programme attend que vous pressiez une touche. 
Si c’est l’une des 8 clés permises qui est pressée, le programme procède à 
votre déplacement et en conséquence à celui des loups. 
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SOUS-PROGRAMMES 


500 APPARtion 

Il détermine le moment où un loup apparaît. Il y a 30 % de chance qu’un 
loup apparaisse pendant un déplacement. Remarquez que quand un loup 
apparaît, les autres loups ne se déplacent pas. Cela donne une chance au 
joueur de s’échapper. 


600 LDEPLacement 

Ce sous-programme, avec le sous-programme DEPL, déplace les loups 
(même ceux qui sont invisibles). Il contrôle aussi si un loup vous a atteint. 
Les loups invisibles ne nuisent pas tant qu’ils ne sont pas devenus visibles. 


700 DUR 
C'est un sous-programme de LDEPL. Son but est d’afficher DUR! 
lorsqu’un loup vous a atteint. 


800 DEPL 

Un simple calcul est fait pour savoir comment déplacer les loups. Si c’est 
possible, chaque loup se rapproche de vous; cependant, s’il n’y a pas de 
position plus proche il reculera d’une case. Ainsi, un loup peut parfois faire 
un mouvement de va-et-vient. 


1000 INITialisation 
Il crée la disposition de la forêt, au hasard, et détermine la position 
initiale des loups. 


1500 CHR 

Les caractères spéciaux (vous et les loups) sont créés grâce à ce 
sous-programme. De plus, ce sous-programme initialise quelques constantes 
(nombre de loups, etc.) 


2000 INFOrmation 
Ce sous-programme contient une brève description du jeu. 
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3. Alunissage 


Vous êtes aux commandes d’un vaisseau lunaire. Il vient de se séparer 
de la fusée porteuse et est en phase d'approche. Seules les rétro-fusées (barre 
d’espacement) peuvent vous ralentir. Les réserves de carburant sont faibles ; 
il ne faut donc pas presser la barre d’espacement tout le temps. 

Le vaisseau a été construit avec des matériaux importés à bon marché, il 
est donc très sensible à la vitesse. C’est pourquoi, si vous dépassez la vitesse 
de 100, votre vaisseau explose ! 

Essayez de vous poser à une vitesse inférieure ou égale à 10. Votre 
Atmos vous fournit un graphique (accompagné de sons) sur votre vitesse, 
votre altitude et votre réserve de carburant. 


1ATOnMI 


V 
E 
L 
O0 
C 
I 
T 
Y 


0-1 T QG = M ZI 
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10 REM EEIEOEIEE 
20 REM + ALUNISSAGE *# 
50 REM #46 36626030 
4 REM 
30 CALCCARB=S500: AFFI1=600: INSTRUCT=1000: IHIT=1500 
60 FING:WAIT 26:FING 
100 REM %% FROGRAMME FRINCIFAL ## 
GOSUE INSTRUCT:GOSUR IHIT 
} REFEAT 
5 VELOCITY=VELOCITY+ACCEL 
: SOUND 4,125-VELOCITY/4,7 
IF VELOCITY#O THEN SOUND 5,290-VELOCITY,7 
Y1=INT (VELOCITY/5): Y2R=INT (VELOCITY-5#Y1):X=7 
: GOSUR AFFI 
: FLOT 7,26,MID#(STRS(INT (VELOCITY)),2)+" " 
: HEIGHT=<HEIGHT-VELOCITY/10û 
5 YI=INT(HEIGHT/8) : YZ=INT (HEIGHT-B#Y1):X=19 
: GOSUR AFFI 
: FLOT 18,26,MID$ (STR$(INT(HEIGHT#19)),2)+"  " 
5 IF FEY$£3:"" THEN GOSUR CALCCAFE 
9 UNTIL HEIGHT*.1 OR VELOCITY:100 
Q EXPLODE 
0 FOR I=û TO INT(VELOCITY/10) 
D : FAFER 1:WAIT 10:FAFER 4:WAIT 10:FAFER 7:WAIT 10 
290 NEXT 
) FRINT:FRINT CHR$(14) 3: CHR (10): CHR$ (14): 
D FRINT CHR$(11):CHR$(4);3 
IF VE*100 THEN FRINT WI$ 
IF VE=100 AND VE*20 THEN FRINT SFC(10)j3:W2$ 
IF VE“=20 AND VE*10 THEN FRINT SFC(17) WI 
IF VELOCITY*=10 THEN FRINT SFC{12);W4% 
50 WAIT S500:PFRINT 
ù FRINT E$+"N Autre partie O0 ou N":SFC(8) 
D FRINT CHR$#(4) 
39 REFEAT: GET E$:UNTIL E$="0" OK E$="N" 
IF Eg$="0" THEN RUN 
90 CLS:FRINT "A la prochaine":FOKE #264A,3:END 
20 REM ## CALCul du CAREurant #*# 
IF FUEL“1 THEN RETURN 
20 FUEL=FUEL-F 
30 YIS=INT (FUEL /8) : Y2=INT (FUEL-8#Y1) : X=172 
IF Y1£0 THEN RETURN 
jo VELOCITY=VELOCITY-RRAFES: GOSUEB AFFI 
n FLOT 31,26,MID#(STRS (INT (FUEL/2)/100),2)4+" 0" 
G RETURN 
D REM #* AFFIchage #* 
IF Y1£0 OR Y1:24 THEN RETURN 
20 FOR I=0 TO 1 
5: FLOT X+1,24-V1,232:FPLOT X+1,25-Y1,352+Y2 
O + IF Y150 THEN FLOT X+1,26-Y1,A$ 
 NEXT 
o RETURN 
1000 REM *% INSTRUCTions ## 
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1010 
1920 
1050 
1040 
1050 
1060 
1070 
1086 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1500 
1510 


1520 


CLS: FAFER 4:INE 7:E$=" "+CHR$ (27) 
D$=E$+"J"+CHRS (4) : FRINT 

PRINT D$+E$+"C"3:SFC (9): "ALUNISSAGE" 

FRINT D$:PRINT: PRINT 

FRINT D$+E$+"C";SFC(5); "De Czes Kosniowski" 

PRINT D$:PRINT:PRINT 

PRINT "Vous etes aux commandes. d’un vaisseau lunaire."i 


FRINT "Il est en chute libre et seules les retro-": 
PRINT ‘"fusees (la barre d'espace) vous ralentissent," 
FRINT "Ne depassez pas la vitesse de 100." 
FRINT:PRINT "Essvyez d'aterrir a une vitesse #10," 
PRINT:FRINT: SPC (10) 3; "BONNE CHANCE" 

FRINT:FRINT" Fressez 0 pour continuer." 

POFE #26A,10 * Curseurs sans effet 
REPEAT:ÉS$=FEYS:E=RND (1) :UNTIL EH$="0" 

RETURN 

REM *% IHIT +% 

CLS:FAFER 7:INE O:FING 

START=#H400+32%8: AA=HAOO0O 





1530 FOFE AA.2:1F PEEK (AA? THEN START=START-#8000 
1540 FOR 1=0 TO 623:POKE START+I,127:NEXT 

1550 FOR 1=0 TO 6:FOR J=û TO 6-1 

1560 : POHE START+J+1%8,0 

1570 NEXT:NEXT 

1580 FOR I=1 TO ?5 

1590 : PLOT 6,1,MID#(" VITESSE VI T",I,! 
1600 : PLOT 18,1,MID#("ALTIDUDE ALTI",I,1) 
1610 : PLOT 31,1,MID$("CAREBURANT CARE",I,1) 


1620 
1630 


NEXT 
FOR I1=0 TO 25 


1649 : FLOT 1,1,1:PLOT 13,1,4:FLOT 26,1,2 
1650 NEXT 

1660 A$="{":p#$=" 1" 

1670 FOR I=û TO 1 

1680 : FOR J=i TO 25 

1690 3  PLOT 19+1,J,A$:FLOT 22+1,J,A$ 
1700 : NEXT 


1710 
1720 
1750 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1850 


1840, 


1850 
1860 
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: FLOT 1,24+1,5:PLOT 7+1,24,A$:FLOT 7+1,25,A$ 
NEXT 

PLOT 21,1,"2000":FLOT 21,7,"1500" 

FLOT 21,13,"1000":FLOT 21,19," 500" 

FLOT 21,25,R$+"G0" 

FLOT 34,1,"FLEIN":PLOT:4,7," 3/4" 

FLOT 34,13,"1/2 ":PFLOT 34,19," 1/4" 

FLOT 34,25,KH$+"00" 

PLOT 9,5,H$+"100":PLOT 9,10,8$+"75" 

FLOT 9,15,H$+"50":PLOT 9,20,R$+"25" 

FLOT 9,23, R$+"10":FLOT 9,25,R$+"00" 

FRINT E$ "à "s:PLOT 31,26, "FULL" 
HEIGHT=199:FUEL=199:ACCEL=. 9:BRAKES=1.8 
F=.9+.4#RND (1) : VELOCITY=10 

Wi$=E$+"N Trop rapide, vaisseau EXFLOSE " 
W2$=ES$+"NCRASH " 


1870 W3$=E#+"NPAS MAL" 
1880 W4$=E$+"NBIEN JOUE" 
1890 FLAY 0,7,0,0 

1900 RETURN 


PROGRAMME PRINCIPAL 


À chaque cycle, votre vitesse et votre altitude sont affichées — aussi 
bien numériquement que grâce à un graphique. Ce graphique est réalisé 
grâce au sous-programme AFFIchage. Si une touche est pressée, du carburant 


est alors consommé (s’il en reste) grâce au sous-programme CALCCARBUrant. 


SOUS-PROGRAMMES 


500 CALCCARBurant 
Il est utilisé pour calculer et afficher la quantité de carburant restant. 
L'affichage graphique utilise le sous-programme arFFichage. 


600 AFFlchage 
Il affiche simplement le caractère spécial relatif à la vitesse, à la hauteur 
ou au. carburant. 


1000 INSTRUCTions 
Ce sous-programme contient les brèves instructions du jeu. 


1500 INITialisation 

Les caractères spéciaux sont créés ici. Il n’y a aucune fantaisie dans ces 
caractères, simplement un rectangle d’une certaine hauteur. Les caractères 
ont les codes ASCII de 32 à 39 et vont du blanc jusqu’à une barre pleine. 
Lorsque ces caractères ont été créés, l’affichage initial sur l’écran est réalisé. 

Remarque : 

Après l’exécution du programme vous pouvez presser la touche RESET de 
l’'Atmos, les caractères standards reprendront leur place. 
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4, L’oiseau et la chenille 


Dans ce jeu, vous êtes une chenille affamée qui rampe sur l’écran. Il y a 
de la nourriture non loin de vous, mais pourrez-vous l’attraper à temps ? La 
chenille ne peut pas s’arrêter, mais vous pouvez modifier la direction de son 
mouvement en utilisant les curseurs. 

Attention ! La chenille ne doit pas heurter le mur (le bord de l’écran) 
car, dans ce cas, elle s’écraserait. Elle ne doit pas, non plus, rebrousser 
subitement chemin car elle s’autodétruirait et le jeu cesserait. Aïnsi, si la 
chenille se déplace vers la gauche, ne pressez pas le curseur « droit ». Au lieu 
de cela, pressez d’abord l’un des curseurs «haut» ou «bas». 

Il y a un danger de plus autour de vous. Un oiseau affamé (contrôlé par 
l’Oric) vole dans les parages à la recherche de la nourriture et de la chenille. 

Dès qu’un morceau de nourriture est mangé, un autre morceau apparaît 
ailleurs. 


L'OISEAU ET LA CHENILLE 
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Regardez quelle est la quantité de nourriture que la chenille peut 
manger avant de s’écraser, de s’autodétruire, ou encore d’être mangée par 
l'oiseau. 


10 REM 4H DE DE DE DE DE DE DE DEEE DE DEEE EEE EEE 
20 REM * L'OISEAU ET LA CHENILLE * 
30 REM HEDEUEOEOEEDEDEDEDE DE DE DE DE DE DE DEEE DE DEEE 
45 REM 
50 01SE=500: DIRECT=700:NOUR=900: INIT=1000 
65 COMMENC=1500:CHR=1700: DESCRIF=2000 
100 REM **% PROGRAMME FRINCIFAL ## 
115 GOSUE DESCRIF:GOSUE COMMENC 
115 PRINT'"':5:; ON COMMENCE" 
120 REFEAT 
150 : GOSUR INIT:GOSUE NOUR:STATE=FALSE 
140 : REFEAT 
150 s ES$=KEVS#:IF E$ <%"" THEN GOSUR DIRECT 
160 5 FLOT F(2),0(2),32 : 
170 : FOR I=2 TO 1 STEF -i 
180 : F(I)=F(I-1):QCI1)=0(I-1) 
190 : NEXT 
: F(0)=F(0)+DF:Q (0) =Q(0)+D0 
ñ FO=SCRAN(F (0) ,C(0) ) 
5 IF FQS:32 AND Fü:* C THEN STATE=FG 
5 IF FQ=C THEN ZAF:WAIT 20:GOSUE NOUR: SUM=SUM+1 
: FOR 1=0 TO 2Z:FLOT F{1),Q(1) ,R:NEXT 
: GOSUR OISE 
: IF X=A AND Y=B THEN ZAF:WAÏT 39 :GOSUE NOUR 
» FOR I=û TO Z 
# IF X=FCI) AND YaG{(I} THEN STATE=1I 
5: NEXT 
: UNTIL STATE 
FRINT STATE 
EXFLODE 
:FOR I=i TO S:FAPFER 1: WAIT 2O:PFAFER 7:WAIT ZO:NEXT 
FAFER C:FRINT E$ 
1 W=- (STATE=1)-(STATE=227) -2# (STATE=160) 
FRINTAS (Wu) 
FRINTCHRS (27) 4+"T"4E#8+"GLa chenille a mange "“: SUM: 



















IF SUM=1 THEN FRINT"morceau M+CS CE 
IF SUMS:1 THEN FFINT "morceaux "+CS 
FRINTCHRS (27) +URIAES+"G"S 

9 FRINT" Une autre partie? Q ou N"':SFC(10) 


: REFEAT: GETG#:UNTIL G$="0" OR G$="N" 

29 UNTIL G$<:"0" 

CLS:FRINT'A BIENTOT':INE 7:PFOFE #2Z6A, ZT: END 

00 REM #* MOUVEMENTS DE L'OISEAU ## 

19 XX=SGN(A-X) : YY=SGN(E-Y) 

O IF RND{1)E,T THEN XX=SGN (FO) -X) : YY=SGN(G(O)-Y) 
@ AND RND(1):.5 THEN XX=0 
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550 PLOT K,V, 22: X=X+XX: Ve Y+YY:PLOT X,V,Z 
560 RETURN 
700 REM +#% DIRECTION ## 
710 EESASC(ES) 
OR KK>11 THEN RETURN 





750 RETURN 
909 REM **# NOURRITURE #*# 


910 FREFEAT 

920 : A=INT(RND(1)#36+2) : B=INT (RND (1) #25+1) 
9350 UNTIL SCRN(A,H)=Z 
940 FLOT 4,E,C 

950 RETURN 

1000 REM ## INITIALISATION *%# 

1010 FAFER O:INE 2:FRINT FRE(9):CLS 
D) FOR X=2 T0 36 

1030 : FLOT X,0,16G:PLOT X,26,160 
104 NEXT 

1050 FOR Y=1 TO 25 

1060 : PLOT 2,Y,160:FPLOT 38,Y,160 
1070 NEXT 

1980 KEM FOSITION DE L'OISEAU 

1090 X=INT (RND (1) #36+2) : Ya: 72207 
1100 FLOT X,Y,2 

1110 REM CHENILLE 

1120 F{O)=30:PF(1)=31 :PF(2 
1130 Q(0)=22:Q0(1)=22:Q0(2)-22 
1140 FOR 1=0 TO 2:FLOT F{I),0(I),R:NEXT 
1150 DF=-1:D0=0 ‘Direction 

1160 C=38:R=37: SUM=O 

1170 RETURN 

1500 REM #* COMMENCEMENT ## 

1910 START=H#E4004+77#8: AA=#AOOC 

1520 FOÉE AA,Z:IF FEEF (AA) 
1530 GOSUE CHF 

1540 START=START+8: GOSUE CHR 

1580 START=START+456:GOSUE CHR 

15840 HR$S=CHRS (27) +"Q"4CHRS (27) 46 " 

1570 C$=" M+CHRS (14) 

1580 A$S(0)=R$+"La chenille s'est mangee elle-meme"+C# 
1590 A$(1)=EB#$+"L'oiseau a mange la chenille"+C$ 

1800 A$(2)=A$+"La chenille a heurte le mur"+C$ 

1610 BS=CHRE (EC) +R$+" L'OISEAU ET LA CHENILLE "+C$ 
1620 RETURN 

1700 REM CHA 

1719 FOR I=START TO START +7:READ X:FOKE I, X: NEXT 

1720 RETURN 

17309 DATA 12%,12,70,63%,63,30,12,12 

1740 DATA 4,14,31,:1,14,4,4,4 

17530 DATA 63,45,63,63,51,63, 33 
2000 REM ** DESCRIPTION ## 
2010 INE O:PAPER 6:CLS:FRINT 























START=START--#8000 
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2020 FOHE #264,2 

2010 E$=" "4CHR# (27) : D$=<ES+"J"+CHRS (4) 

2040 PRINTD$#:SFC (6); "L'OISEAU ET LA CHENILLE":FRINTD# 

2050 PRINT: FRINT 

2060 PRINTD$:SFC(7)s "par Czres Koniowski" 

2070 FRINTDS#: PRINT 

2080 FRINT'Guidez la chenille vers la nourriture" 

2095 FRINT'"'Mais, evitez les murs et l'oiseau!" 

2120 FRINT:PRINT'Four changer de direction, utilisez les fleches" 
2140 FRINT:FRINT E$+"L';GFPC(8): "Appuyez sur 0 pour commencer" 
2150 REPEAT:G#=KEYS$:G=RND (1) :UNTIL G$="0" 

2160 RETURN 





PROGRAMME PRINCIPAL 


Le programme principal déplace sur l’écran la chenille et l’oiseau. Un 
test est réalisé pour voir si la chenille a heurté le mur, s’est autodétruite ou a 
mangé un morceau de nourriture. Un test similaire est fait pour savoir si 
l'oiseau a mangé la chenille ou de la nourriture. 


SOUS-PROGRAMMES 


500 OISEau 

Il contrôle le mouvement de l’oiseau. À chaque occasion, l’ordinateur 
décide si l’oiseau ira vers la chenille (30 % des cas) ou vers la nourriture 
(70 % des cas). Ayant choisi son but, l’oiseau se déplace d’une case vers 
celui-ci. 


700 DIRECTion 
Après avoir testé le clavier, ce sous-programme calcule la direction que 
doit prendre la chenille. Seuls les curseurs ont un effet. 


900 NOURriture 

Lorsqu'il n’y a plus de nourriture en jeu, ce sous-programme sélectionne 
la position d’un nouveau morceau. Un test est fait pour s’assurer que la 
nourriture apparaît dans un endroit vide (hors du mur, de l’oiseau ou de la 
chenille). 


1000 INITialisation 

La première image qui apparaît sur l’écran est créée par ce sous- 
programme. Il crée le mur d’enceinte et positionne l'oiseau et la chenille sur 
l'écran. 
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1500 COMMENCement 

Le programme principal nécessite trois caractères spéciaux : l’oiseau, la 
nourriture et la chenille. L'oiseau remplace le caractère ASCII 223 (qui est 
l’inverse-vidéo du caractère de code 95). Les dessins de la nourriture et de la 
chenille remplacent les caractères de code ASCII 37 et 38. La chenille est 
formée de trois losanges mis bout à bout. 


1700 CHR 
Ce court sous-programme lit les DATA pour les caractères spéciaux et les 
implante (POKE) aux bons emplacements. 


2000 DESCRIPtion 
Il contient une brève description du programme. 
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5. Les vingt-cinq carrés 


C’est un jeu du type puzzle dans lequel l’Atmos mélange les vingt-cinq 
lettres de l’alphabet de À à Y. Le but est de les remettre en ordre dans la 


position ci-dessous : 


x 
< 
Oo 


< 
C 
7? © 


Zoo n 
4 
CG 


T0O2zZ 
zx 
mr 


Seuls certains groupes de lettres peuvent être déplacés à tous moments. 
Les groupes sont formés de 8 lettres qui se trouvent dans la partie haute, 
droite ou gauche de la figure. Les déplacements sont effectués en pressant les 
touches 1 à 8. Chacune des touches impaires déplace un groupe de lettres 
dans le sens des aiguilles d’une montre alors que les touches paires les 
déplacent dans le sens inverse. Par exemple, presser la touche 1 déplace les 8 
lettres de la gauche (TUVWXYBA sur le dessin) dans le sens des aiguilles 
d’une montre. La touche ÿŸ est utilisée si l’on abandonne le jeu. 
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Ce jeu a plusieurs niveaux de difficulté. Au niveau le plus facile (niveau 
1) seuls deux mouvements sont faits par l’ordinateur. Voyez si vous pouvez 
réussir avec ces deux mouvements. Aux niveaux plus élevés, le jeu peut 
s'avérer assez difficile et provocant. La réflexion importe plus que la vitesse 
dans ce jeu. 





LES 25 CARRÉS 


Pour arrêter, pressez ÿ 


10 REM 36366 TETE DEEE DEEE 

20 REM *# VINGT-CINCG CARRES + 

20 REM 36H DEDEN DE DEEE DEEE TEE 

40 REM 

950 MOUV=500: AFF1=1000:INITIAL=1500: DESCRIF=2000 
60 FING:WAIT 20:FING 

100 REM *#* HOUCLE FRINCIFALE *#* 

110 GOSUR DESCRIF:GOSUE INITIAL 

120 GOSUR AFFI:STATE=FALSE 

130 REFEAT 

140 : ANSWER=FALSE 

150 : REFEAT:GET G$:UNTIL G$:"/" AND G#<"9" 


160 : GOSUE MOUV+SG#VAL(G#):1F G$::"G" THEN GOSUR AFFI 
170 : REM CHECK FOR END 

180 : 1=6 

190 : REFEAT 

200 4  I=I+1:1F AX(I)2#64+1 THEN ANSWER=TRUE 


210 : IF 124 THEN ANSUWER=TRUE: STATE=1 
220 : UNTIL ANSWER 

9 UNTIL STATE 

0 FRINT CHR$(30) 





230 REM FIN 





) IF STATE=1 THEN FRINT W$:FING:WAIT Sû:PING 


270 FLOT 190,3,'"Autre partie O or N'" 

280 REFEAT:GET G$:UNTIL G+$="0" OR G$="N" 
290 IF G$="0" THEN RUN 

300 CLS:PRINT "A bientot.":POFE #26A,3:END 
SO0 REM ## MOUV O0 - Quitter ## 

510 STATE=2 

520 ANSHER=TRUE 

530 RETURN 

540 REM Simplement pour remplir l'espace +**# 
560 REM +#*% MOUV 1 - Gauche direct *#*# 

560 RZ=A% (25) 

570 FOR 1=25 TO 21 STEF -1:A2(1)=A% (1-1): NEXT 
580 A%(20)=A% (1): AZ (1) =A%X (2) : AY (2) =B% 

590 RETURN 

600 REM *# MOUV 2 - Gauche direct **# 

610 HZ=A% (20) 

&20 FOR 1=20 TO 24:A%(I1)=AZX(I+1):NEXT 

830 A%(25)=A%4 (2) 2: AL (2) =AZ (1): AL (1) =EBX 

640 RETURN 

650 REM *## MOUV 3 - haut indirect *# 

660 EH£=A7% (8) 

870 FOR 1=8 TO 2 STEF -1:4%(1)=A%(1-1):NEXT 
680 AZ(1)=E% 

690 RETURN 

700 REM #* MOUV 4 - Haut direct ## 

710 BZ=A% (1) 

720 FOR I=1 TO 7:AX(CI )=AX( I+1 ):NEXT 

750 AZ(8)=E% 

740 RETURN 

750 REM **# MOUV 5 - Droit indirect **# 

760 BZ=A7 (14) 

770 FOR 1=14 TO 9 STEF -1:A%4(1)=AX(I-1):NEXT 
780 AZ(B)=AZ(1) : A2 (1)=B% 

790 RETURN 

800 REM *#*# MOUV 6 - Droit direct #* 

810 BX=A7(B) 

20 FOR 1=8 TO 13:A%(1)=A%(I+1):NEXT 

830 AZ2(14)=A2(1): A2 (1) =B% 

840 RETURN 

850 REM ** MOUV 7 - Bas indirect *#+# 

Bét EYX-A% (20) 

870 FOR 1=20 TO 15 STEP -1:AZ%(I )=AX(I-1 ): NEXT 
880 A%(14)=AX (1): AZ(1)=EX 

890 RETURN 

900 REM ** MOUV 8 - Bas direct **# 

910 BX=A% (14) 

920 FOR 1=14 TO 19:A%(1)=AZ(I+1):NEXT 

930 A%(20)=A% (1) : AZ (1) =B% 

940 RETURN 


1000 REM *# AFFIichage *#* 
1010 FOR I=1 TO 25 


31 





1040 
1050 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1670 
1640 
1650 
1660 


1670 : 


1680 
1690 
1700 
1710 
1720 
1720 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
2000 
2010 
2020 
20350 
2040 
2050 
2060 
2070 
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5: FLOT XX(I),Y2CI).AZ(I) 

5: PLOT XX(CI),YA(I)+1,A% (1) 

NEXT 

RETURN 

REM #* INITIALisation ** 

CLS:FAFER O:INE 7 

DIM A%(25),X4(25),Y% (25) 

FOR I=i TO 25 

5: AX(I)=64+1I 

: READ XX(I),YZ2(I) 

NEXT 

FOR 1=5 TO 22:FLOT Ô,1,10:NEXT 

FLOT 0,1,10:PLOT 0,2,10:FPLOT G,3,2:FPLOT 1,3,12 
REM MIXING 

FOR J=1 TO 2Z:GOSUR MOUV+S0%INT (8#RND (9) +1) :NEXT 
Wg=" " 

WS=ES$S+"A"+CHRS (4) +WS+"BIEN JOUE "+W$+CHRS$ (4) 
FRINT:PRINT V#:PRINT E$+"A" 
START=#R400+90#8 : AA=#AOO0 

FOFE AA,2:1F FEEK(AA)::2 THEN START=START-#8000 
FOR I=û TO 3 

START=START+E 

: FOR J=0 TO 7:READ R:FOFE START+J,R:NEXT 
NEXT 

FOR 1=1 TO 8 

: READ U,V,X$ 

5: FLOT U-1,V,4:FLOT U-1,V+1,4 

: FLOT U,V,X$:FLOT U,V+1,X 

: PLOT U+3,V,7:FLOT U+3,V+1,7 

NEXT 

FLOT 0,24,4:FLOT 9,24,"Four abandonner pressez 0" 
RETURN 

REM DONNEES 

DATA 19,13,17,11,17,9,17,7,19,5,21,7,21,9,21,11 
DATA 23,11,25,11,27,13,25,15,23,15,21,15 
DATA 21,17,21,19,19,21,17,19,17,17,17,15 
DATA 15,15,13,15,11,13,13,11,15,11 

REM DONNEES-CARACTERES 

DATA 20,6,10,18,16,16,8.4 

DATA 4,8,16,16,18,10,6,:30 

DATA 30,24,20,18,2,2,4,4 

DATA 4,4,2,2,18,20,24,370 

REM “DONNEES POUR L'AFFICHAGE 

DATA 8, 15,0 1,8, 11,\2, 15, 5,0 3, 22,5,4] 

DATA 29,11, 57, 29, 15, 61, 22, 21,79, 15, 21,\8 
REM #* DESCRIFtion #% 

CLS:FAFER O:INE 7:POKHE #26A,3 

E$=" "+CHR$ (27) : D$=E$+CHR$ (4) +"J" 
V$=E$+"A"+D$+" Vingt cinq carres. "+D$ 
FLOT 1,2,1 

FRINT:PRINT V$: PRINT: PRINT: PRINT 

FRINT D$;SPC(7);"de Czes Fosniowski" 

FRINT D$:PRINT 









2080 FRINT "Reordonnez les 25 lettres dans la” 

2090 PRINT "position correcte, comme ci-dessous." 
2100 PRINT SPC(17)$"E":PRINT SPC(16)5"D F" 

2110 PRINT SFC(16)3"C G":PRINT SFC(14)5"XYE HIJ" 
2120 PRINT SPC(13)5 "NW À  K":FRINT SFC(14)3"VUT NML" 
2150 PRINT SFC(16):"S O":FRINT SFC(I6)3"R F" 

2140 PRINT SPC(17):"Q" 

2150 FRINT:FRINT "Utilisez les touches 1 à 9 pour " 
2160 PRINT "les mouvements." 

2170 PRINT E$+"DDifficulte? 1 a 9: 2 

21B0 REPEAT:G$=KHEY$:GG=RND (1) :UNTIL VAL (G6$) :0 

2190 ZZ=34VAL(G#)-1:FOKE #26A,2 

2200 RETURN 


PROGRAMME PRINCIPAL 


La partie principale de ce programme attend que vous pressiez une des 
touches 1 à 8. Le mouvement approprié est ensuite effectué et un test regarde 
si les lettres sont dans leur position correcte. 


SOUS-PROGRAMMES 


500 MOUVement 

Les lignes 500 à 540 contiennent les instructions pour quitter le jeu. Les 
autres déplacements 1 à 8 sont séparés par des intervalles de 50 entre les 
lignes 550 et 940. Les déplacements sont appelés par l’instruction GOSUB MOVE 
+ 50 *vaL (G$) où G$ est la touche pressée. 


1000 AFFlchage 
Il place les lettres dans leur position. 


1500 INITIALisation 

Les 25 lettres sont rangées suivant leurs codes ASCII (65 à 89) dans les 
variables entières A % (1). Les positions des lettres sur l’écran sont rangées 
dans les variables entières X % (1) et Y % (1). Quatre caractères spéciaux 
sont créés. Ce sont quatre flèches courbes. 


2000 DESCRIPtion 
Une brève description du jeu est donnée dans ce sous-programme. 
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6. Test d’intelligence 


De nombreuses questions dans ces tests sont basées sur des séquences de 
nombres et/ou de lettres. Par exemple, 
19, 16, 13, 10, … 
O, K, H, E, … 


Vous devez donner le terme suivant de la séquence. Votre Atmos peut 
être utilisé pour créer toutes sortes de séquences qui vous testeront et vous 
amuseront. Pour chaque séquence, essayez de trouver la bonne réponse. 
Rien ne presse, l’ordinateur attend patiemment lorsque vous réfléchissez. 

Après dix séquences votre score vous sera donné. Ne prenez pas le jeu trop 
au sérieux, le but est de vous amuser. 


TEST D'INTELLIGENCE 
SEQUENCE 3 


OS WAE I m 


Quelle est la prochaine lettre ? P 
Non, essayez encore 
quelle est la prochaine lettre? R 
La réponse est Q 


Pressez Y pour continuer 
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10 REM HE DE DEN DE DD DE DE DE DE DEEE 
20 REM * TEST D'INTELLIGENCE +*# 
TO REM #46 266 DE EH DE DE DE DE DEEE 
40 REM 

50 SEQUENCE=500: INFO=1000 

60 FING:WAIT 20:FING 


190 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 


REM **# FROGRAMME FRINCIFAL * 
GOSUE INFO 
FOR ZZ=1 TO 10 
: REM NOMBRES ALEATOIRES 
5: A=INT(RND(1)#10+1):N=INT(RND{1) #4) 
5: B=INT(RND(1)#10):C=1+2#(RND(1)#.5) 
: REM ECRAN 
5 CLS:PRINT " "SIG: PRINT 
: PRINT ,,," SEQUENCE ";ZZ:FRINT 
5: PRINT CHR$S(4): PRINT Eg+"J "3 
: GOSUR SEQUENCE+100%INT (RND (1) #5) : FRINT 
FRINT CHR$ (4): FRINT:FRINT 
FOR JJ=1 TO 2 
INPUT "Quel est le terme suivant"; Y$:FRINT 
IF Y$=X$ THEN FING:JJ=3:FRINT W$:SC=SC+1 
: IF JJ=1 THEN SHOOT:FRINT E$+"ENon - essayez encore" 
: IF JJ=2 THEN SHOOT:FRINT E$+"ELa reponse est ":X$ 


5 PRINT 

: NEXT 

5: PRINT:PRINT Eg$g+"L'"+E$+"D Fressez 0 pour continuer" 
: REFEAT:GET G#&:UNTIL G$="0" 


310 NEXT 
9 CLS:FRINT: PRINT D$+I$:FRINT D$: PRINT 
Oo FRINT " Votre score est sur 10 de ":SC 


) FOR 1=1 TO SC:FING:WAIT 2ZO:NEXT 


FRINT:FRINT 

PRINT E$+'L'°+E$+°D Autre partie? O ou N° 
REFEAT: GET G$:UNTIL G$="0" OR G$="N" 

IF G$="0" THEN RUN 

CLS:FRINT "A bientot. ":END 

REM * Arithmetique * 

IF CO THEN EB=ER+B0O+INT (RND (1) #10) 

FOR 1=1 TO 6:FRINT AxIxC+R;" "3: NEXT 
X$=MID$ (STRS$ (A#I#C+B),2) 

FRINT: RETURN 

REM * lettres-arithemetiques * 

FOR I=N TO N+é 

W=AXCXI+BR: W=W+S-26XINT(W/26): PRINT CHR$(W):" *; 
NEXT 

W=AXCXI+E: W=W+S-26%INT (W/26) : XH=CHRS (W) : FRINT 
RETURN 

REM * Arithmetique double * 

W=80+INT (RND(1) #10) 

FOR I1=1 TO 6 


D PRINT W;" "; 





W=W+CxA:C=-C:A=A+E+1 
NEXT 
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760 
770 
800 
810 
820 
850 
840 
850 
860 
870 
gec 
900 
910 
920 
950 
940 
950 
760 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1960 
1070 
1080 
1090 
1100 
1110 
1120 
1130 


FRINT:X$=MIDS{STRS (W),2) 

RETURN 

REM * Arithmetique croissante * 
W=85+INT (RND (1) #10) 
D=1+2#(RND(1)2.5) 

FOR 1=1 TO 6 

PRINT Ws" "5 
W=W+CxA:C=C#D: A=A+I 

NEXT 

X$=MIDS$ (STRS$ (W),2) : PRINT 

RETURN 

REM * Arithmetique mixte *LISTI100-1260 


FOR I=N TO Nté 
W=AXCXI+E: W=W+S-26#INT (W/26) : Y$=CHRS (W) 
IF 2#INT(I/2)=1 THEN Y$=MIDS$ (STR$(W-S+1),2) 
PRINT Y#+" !"; 
NEXT 
W=AXC*I+E: W=W+S-26%#INT (W/26) : X$=CHRS (W) 
IF 2#INT(1/2)=1 THEN X$=MIDS$ (STRS# (W-5+1),2) 
FRINT 
RETURN 
REM #*# INFOrmation ** 
INE 7:FAPER O:CLS 
E$=" "+CHR$ (27) :S=65: D$=E$+"J"+CHRS (4) 
1$=E$+"A TEST D° INTELLIGENCE" 
FRINT:PRINT D$+1$:PRINT D$:PRINT:PRINT 
PRINT D$:SFC(7); "de Czes Kosniowski":FRINT D$ 
FRINT:PRINT "Une sequence de nombres et/ou de lettres ": 
FRINT "vous est donnee.Utilisez votreintelligence "; 
FRINT "pour decouvrir le terme suivant. Tapez ": 
FRINT "le et faites “returni.":PRINT: PRINT 
PRINT E$+"L'"+E$+"E Fressez O0 pour commencer" 
REPEAT: G$=KEYS#: GG=RND (1) :UNTIL G$="0" 
W$=E$+"EHEHien joue" 
RETURN 


PROGRAMME PRINCIPAL 


fois. 


Le programme principal est constitué d’une boucle qui est exécutée 10 
A chaque passage des nombres aléatoires et une séquence type (une 
parmi cinq) sont sélectionnés. Ils sont utilisés pour créer une séquence 


aléatoire de lettres et/ou de nombres. 


Après l’affichage de la séquence, l'ordinateur attend une réponse. Après 


l'introduction de cette dernière, il donne la bonne réponse. 
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SOUS-PROGRAMMES 


500 SEQUENCE | 
Il est constitué de cinq séquences type décrites plus loin. Elles sont 
appelées par l'instruction GOSUB SEQUENCE + 100 +INT (RND (I) +5). 


500 Séquences de nombres en progression arithmétique 

Exemples : 2, 4, 6, 8, 10, 12, … 
1, 7, 13, 19, 25, … 
21, 17, 13, 9, 5, … 

Dans une séquence arithmétique la différence entre deux termes 
consécutifs est constante. Dans les exemples précédents, les différences sont 
de 2 pour la première séquence, de 6 pour la seconde et de —4 pour la 
troisième. 


600 Séquence arithmétique de lettres 

Exemples : A, C, E, G, I, … 

U, X, À, D, G, … 

O, N, M, L,K, … 

R,Z,H,P,X,F, … 
Une séquence arithmétique de lettres est semblable à une séquence 
arithmétique de nombres, ces derniers étant remplacés par des lettres de 
l'alphabet. La séquence est donc constituée de lettres choisies à intervalle 
régulier. Lorsque on atteint la fin de l’alphabet, on revient alors au début de 
celui-ci comme le montrent les exemples deux et quatre. 


700 Deux séquences arithmétiques 
Exemples : 85, 91, 80, 96, 75, 101, … 
80, 72, 85, 67, 90, 62, … 
91, 101, 112, 125, 141, 161, … 
Ces séquences sont constituées de deux séquences arithmétiques dont les 
éléments alternent. L’une est croissante alors que l’autre est décroissante. 


800 Séquences arithmétiques croissantes. 

Exemples : 87, 97, 108, 121, 137, 157, … 

90, 87, 91, 85, 94, 81, … 

88, 83, 77, 69, 58, 43, … 
Dans ces séquences la différence entre deux termes consécutifs (qu’ils soient 
positifs ou négatifs) augmente d’une quantité croissante. Par exemple, dans 
la troisième séquence les différences sont de 5, 6, 8, 11, 15 qui augmentent 
donc respectivement de 1, 2, 3 et 4. 


900 Séquences arithmétiques mixtes 
Exemples : 14, P, 18, T, 22, X, 26, … 
22, S, 16, M, 10, G, 4, … 

J, 12, N, 16, R, 20, V, … 
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Ces séquences sont des combinaisons entre des séquences arithmétiques de 
nombres et de lettres. 


1000 INFOrmation 
Il contient une brève description du programme. 
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7. Hypnose 


Ce programme est un simple divertissement — ce n’est pas un jeu — 
mettez-vous tranquillement devant votre écran et regardez. 


10 REM #36 IEEE 

20 REM * HYPNOSE +*# 

30 REM #42 

40 REM 

30 INFO=500 

60 FING:WAIT 20:FING 

100 REM *° FROGRAMME FRINCIFAL #% 

110 GOSUE INFO 

120 FOR G=0 TO 40 STEF 10 

120 +: HIRES:FOKE #26A,10:FLAY 2,0,0,0 

140 : FOR Y=198 TO à STEF -6 

150 :  CURGSET 1.2#Y,V,3:FILL 200-Y,1,17 

160 :  SGUND 2,250-Y+6,8 

170 : NEXT 

180 : HIRES:FOFE #26A, 10:EXFLODE 

190 : FOR I=0 TO 3:PAPER 1:WAIT 10:PAPER O:WAIT 5:NEXT 
200 : FLAY 2,0,0,0 

210 : FOR Y=0 TO 199 STEF 6 

220 : CURSET 1,2XY,Y,3:FILL 200-Y,1, 16+RND( 1 )x8 
230 :  SOUND ?,250-Y+6,8 

240 : NEXT 

250 : WAIT 10 

260 NEXT 

270 FLAY O,O,0,0:WAIT S0:E$=" "+CHR#&(27) 

280 FRINT:FRINT E$g+"R'"+E$+"L Autre partie? O ou N'" 
290 REFEAT:GET G$:UNTIL G$="0" OR G$="N" 

200 TEXT:1F G$="0" THEN RUN 

210 CLS:PFRINT "A bientot. ":POKE #26A,3:END 

500 REM #% INFOrmation #* 

310 INF 6:FAFER O:CLS:FOKE #26, 10: PRINT 

d20 E$=" "4CHRS (27) : D$=<ES+"J"+CHRSE (4) 

3230 FRINT D$:SPC (11): "HYPNOSE ":PRINT D$:PRINT 
540 PRINT :PRINT D$; SPC(6);"de Czes Kosniowski 
990 FRINT D$:PRINT:WAIT 5O0:FRINT "RELAXEZ VOUS": 
360 FOR I=0 TO 2Z3:PRINT "."S;:WAIT 10: NEXT:FRINT 
370 FRINT:FRINT "Vous allez vous faire";:WAIT 100 
380 FRINT E$+"LHYFNOTISER,":WAIT 400 

390 RETURN 
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PROGRAMME PRINCIPAL 


Le programme principal remplit l'écran en haute résolution (HIRES) de 
deux façons. Tout d’abord avec des rectangles rouges de taille croissante, 
puis avec des rectangles d’autres couleurs de taille décroissante en 
surimpression. Le son accompagne cet effet hypnotique alors qu’une 
explosion vous fait sursauter. 


SOUS-PROGRAMMES 


500 INFOrmation 
Il donne une courte description du programme. 
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8. Les danseurs 


Nous avons déjà tous fait des chaînes en papier, en pliant, découpant 
puis dépliant du papier. Essayez de faire une longue chaîne de danseurs sur 
votre Atmos. | 

Au début un homme apparaît au centre de l’écran. Un instant plus tard 
un autre homme apparaît juste en dessous de lui. Ce procédé est ensuite 
répété. En utilisant les curseurs vous pouvez changer la direction 
d'apparition des hommes. Ce procédé s’arrête si vous touchez un obstacle 
(lobstacle peut être un homme déjà sur l’écran). 

Le nombre d'hommes sur l’écran est affiché en haut à droite. 









LES DANSEURS TOTAL : 81 









FASNAANENNENT 


E 
He 


= 
RERARARRRERTE 








Un autre jeu ? Oui ou Non 






41 


10 
20 
30 
40 
50 
60 
70 
100 
110 
120 
1:50 
140 
150 
160 
170 
180 


190 : 


206 
210 
220 
270 
240 
250 
500 
510 
220 
930 
600 
610 
820 
639 
640 
650 
660 
100 
101 
102 
103 


REM HORDE IDE DE DE DE DE JE DEN 

REM * LES DANSEURS * 
REM HDI DEDENE DEEE 
REM 

TCH=50 0 : OBSTACLE=600 
INITI=1000:COMMENC=1500: DESCRIF=2000 
PING:WAIT 20:PING 

REM ##% FROGRAMME PRINCIPAL #*+* 

GOSUR DESCRIF:GOSUR COMMENC 

REPFEAT 
GOSUR INITI 
REFEAT 

K$=KEYS$:IF K$()"* THEN GOSUR TCH 
X=X+DX: Y=Y+DY: STATE=SCRN( X, Y )C )C 
FLOT X,Y,Z:AMOUNT=AMOUNT+1 
5:  PLOT 35,1,MID$(STRS$ (AMOUNT) ,2) 
GOSUER OBSTACLE 

: UNTIL STATE 

:PLOT X,Y,128+Z:EXFLODE:WAIT 40 

: FLOT 10,25,"Autre partie? 0 où N'" 

: REFEAT:GET G$:UNTIL G$="0" OR G$="N" 
UNTIL G$="N" 

CLS: PRINT "A bientot. ": POKE #26A,3:END 
REM *X%X TouCHE xx 

E=ASC(K#S):IF E<8 OR K11 THEN RETURN 
DX=(H=8)-(K=9) :DY=(H=11)-(E=10) 

RETURN 

REM ** OBSTACLE +*+* 

IF RND(1)#,.2 THEN RETURN 

REPFEAT 

5 A=INT(RND(1)#344+2): B=INT (RND(1) x21+7) 
UNTIL SCRN(A,H)=C 

FLOT A,B,160 

RETURN 
Q REM #* INITIialisation ** 
O PAPER 6:INH O:CLS 
0 FOR X=2 TO 36:PLOT X, 2, 160: PLOT X, 24, 160: NEXT 
0 FOR Y=2 TO 24:PLOT 2,Y, 160: PLOT 36, Y, 160: NEXT 


1040 X=19:Y=13:DX=0:DY=1:PLOT X,Y,2:STATE=FALSE 


105, 
106 
107 


Q FLOT X,Y,Z:STATE=FALSE: W=20: AMOUNT=1 
0 PLOT 2, 25, 4: PLOT 3, 25, 12 
0 PLOT 2,1, "LES DANSEURS" 


1080 PLOT 27,1," TOTAL: 1" 


109 


G RETURN 


1500 REM **# INITIALisation #* 


151 
152 
153 
154 
155 
156 
200 
201 
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© START=#R400+3848: AA=#A00O 

O POKE AA,2:1F PEEK(AA)<:2 THEN START=START-#8000 
O FOR I=START TO START+7:READ R:FOKE 1,R:NEXT 

© 2=38:C=32 

© RETURN 

O DATA 14,14,4,%1,14,14,10,10 

O REM ** DESCRIPTION *# 

0 CLS:PAPER 1:INK 7:PRINT 


2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 


FOFE #26A,2 ‘Curseurs sans effet 

E$=" "+CHR$ (27) : D$=E$+"J"+CHRS$ (4) 

PRINT D$:SFC(10)3"LES DANSEURS":FRINT D$:PRINT:PRINT 
PRINT D#:SPC(7)i"de Czes Kosniowski":PRINT D$ 
PRINT:FRINT "Faites une chaine de danseurs.Utiliset"; 
PRINT "les curseurs pour changer de direction":FRINT 
PRINT "Mais - faites attention aux obstacles!" 

PRINT: PRINT E$+"L':;SPC(7);"Fressez 0 pour jouer." 
REPEAT:G$=KEYS$: GG=RND (1) :UNTIL G$="0" 

RETURN 


PROGRAMME PRINCIPAL 


Le programme principal dessine un homme et regarde s’il a heurté un 


obstacle. 


SOUS-PROGRAMMES 


500 TouCHE 
Il est utilisé lorsque une touche est pressée. Lorsqu'un curseur est utilisé 


l'ordinateur calcule la direction que l’homme doit prendre. 


600 OBSTACLE 
Il crée un obstacle (approximativement dans 20 % des cas). 


1000 INITIalisation 
Un mur d’enceinte et un homme de coordonnées (19, 13) sont dessinés. 


1500 COMMENCement 
Un caractère spécial, l’homme, est créé. Il remplace le caractère de code 


ASCII 38. 


2000 DESCRIPtion 
Il contient une courte description du programme. 
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9. Show graphique 


Vous avez certainement déjà vu en démonstration un ordinateur 
puissant et coûteux exhibant ses possibilités graphiques. Certains des dessins 
sont très intéressants et peuvent être très facilement réalisés sur votre Atmos. 
Ce programme va vous montrer 5 différents types de dessins. Chaque dessin 
utilise des nombres aléatoires ; ainsi, vous ne verrez jamais deux fois le même 
dessin. 

Reportez-vous à l’annexe 1 pour savoir comment sauvegarder vos écrans 
en haute résolution (HIRES) grâce à votre lecteur de cassettes. 


DA CA 
Fe 


LR 77 
TL 77 


ni 
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10 
20 
30 
40 
50 


60 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 : 
260 
270 
280 
290 
300 
500 
310 
520 
930 
540 
9930 
560 
570 
5e 
390 


REM HD DE JDE DE DE DEEE EE JE 
REM * SHOW GRAPHIQUE * 
REM DE AEDEDEDE DEEE EEE DETTE 
REM 

INC=100:GRAPH=400: CONTI=1000: ARCS=1100 
FING:WAIT 20:PFING 

REM *%X PROGRAMME PRINCIPAL XX 

INE 6:FAFER O:CLS 

REPFEAT 

: TEXT:CLS:PRINT:Z=FRE (1) 
E$=" "+CHR$ (27) : D$=E$+"J"+CHRS (4) 
XMID=119:YMID=99:DEF FNR(X)=INT (RND{1)#X):FF=2xFI 
PRINT D$3:SFC(8) ; "SHOW GRAPHIQUE":FRINT DS 
FRINT:FRINT:FRINT D$:SFC (6); 
PRINT "de Czes Kosniowski":PRINT D$:PRINT 
FRINT "1. ENROULEMENT":PRINT 
PRINT "2. ETOILE":FRINT 
PRINT "3. OEIL":PRINT 
FRINT "4. CHARDON":FRINT 
PRINT "5, MOIRE":FRINT 
5: PRINT "O. SORTIE":FRINT 
: FRINT "Entrez le nombre de votre choix" 
: REPEAT:G$=HEYS$: GG=RND (1) :UNTIL G$:="0" AND G$<"é6" 
: G=VAL (GS) :HIRES:FOKE #26A,2 

5: IF G>0 THEN GOSUER GRAFH+INC*G:GOSUE CONTI 
UNTIL G=0 
TEXT:CLS:PRINT "A bientot. ":FOKE #26A,23:END 
REM **% ENROULEMENT ## 
A=.S5-RND(1):H=.5-RND(1):C=.5-RND(1):D=.5-RND(1) 
FRINT SFC(14) 3; "ENROULEMENT ": SH=15: XMID=XMID-SH 
FOR I=1 TO 25 STEF .25 


5 X=XMID#SIN(AXI) : Y=YMID#COS (Bx1) 

5 CURSET X+XMID+SH, Y+YMID, 1 

: DRAW 1+XMID#SIN(C#I)-X, 1+YMID#COS (D#1)-Y,1 
NEXT 

XMID=XMID+SH 

RETURN 


600 REM #* ETOILE #+* 
610 PRINT SPC (16) ; "ETOILE":N=3+FNR (7) : ANGLE=FF/N 
620 W=YMID#RND( 1 ): START=PIX( 2XINT(N/2 )=N-1 )/2 


630 
640 
650 
660 
670 


FOR I=YMID TO 0 STEP -5:XX=14C0S( START ) 

5 YA=TXSIN(START) :CURSET X4+XMID, YX+YMID, 1 

: FOR J=START+ANGLE TO START+PF+ANGLE STEF ANGLE 
5  UX=W*xCOS (J-ANGLE/2) : VX=WXSIN (J-ANGLE / 2) 

5 DRAW UX-XY.VA-YX, 1: XA=U%: VA=VA:UY=I#COS {J) 


680 : VX=I#SIN(J):DRAW UX-X%, VA-VA, 12 XA=UZ: YAEVYX 


690 


NEXT:NEXT:RETURN 


700 REM ## OEIL #* 


710 


FRINT SPC(16) 5 "OEIL" 


720 A=10+FNR (40) : B=SO+FNR (40) : N=10+FNR (40) 
30 GOSUB ARCS 

740 A=(A+E)/2:H=(E+YMID) /2 

750 FOR 1=0 TO PF STEP PI/N 
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7éÙ : 


770 
780 
790 
BOG 
810 
20 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
950 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 


CURSET XMID+A#COSCI),YMID-AXxSIN(I),1 
: DRAW (B-A)#COS(I), (B+A)#SIN(I),.1 
NEXT 

RETURN 

REM *% CHARDON ## 

FRINT SFC(14) 3; "CHARDON" 

A=1C+FNR (40) : B=5SO+FNR (40) : N=10+FNR (40) 
GOSUR ARCS 

A= (A+E) /2:EH=(E+YMID) /2 

FOR I=0 TO PI STEF FI/N 

: CURSET XMID-AKCOS(I),YMID4+A#GINOT) 1 
5: DRAW (B+A)xCOS{I),(B-A)#SIN(I),1 
NEXT 

RETURN 

REM *#*% MOIRE *+# 

FRINT SFC(15):"MOIRE" 

XMAX=224: YMAX=199:K=1+5#RND (1) 

FOR 1=0 TO XMAX STEF E 

: CURSET 15,0,1:DRAW I, YMAX, 1 

NEXT 

FOR I=YMAX TO © STEF -K 

: CURSET 15,0,1:DRAW XMAX,I,1 

NEXT 

RETURN 

REM *# CONTINUE #+# 

PING:FOR I=1 TO 6:INK I:WAIT 75:NEXT 
E$=" "+CHR$(27) 

FRINT E$+"ER'"+E$+"L Fressez Y pour continuer" 
REFEAT:UNTIL KEY$="" 

REFEAT:GET G$:UNTIL G$="Y" 

HIRES: POKE # 26, 2: RETURN 

REM *# ARCS ** 

FOR I1=0 TO FF STEF FF/N 

: CURSET XMID,YMID, 1 

: DRAW AxCOS(FF-1) ,A#SIN(FF-1),1 

: CURSET XMID,YMID,1 . 

: DRAW BXCOS(PI/N+I ), BXSINCPI/N+I), 1 
NEXT 

RETURN 


PROGRAMME 
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Il demande à l’opérateur quel type de dessin il veut créer. 


SOUS-PROGRAMMES 


400 GRAPHique 

Il n’y a pas de sous-programme à ce numéro de ligne. Les véritables 
sous-programmes commencent à la ligne 500 et sont séparés par un intervalle 
de 100 lignes. Ils sont appelés par GOSUB GRAPH + INC G ou INC = 100 et G est 
un nombre compris entre 1 et 5 donné par l’opérateur. Les éléments de ce 
sous-programme sont donnés maintenant. 


500 ENROUlement 
Il fait tourner des lignes droites autour de l’écran. 


600 STAR 
Il dessine une étoile dont le nombre de branches, compris entre 3 et 9, 
est aléatoire. L'ordinateur remplit ensuite cette région de l’écran. 


700 OEIL 
Des lignes se déploient en partie en éventail depuis le centre de l’écran. 
Le résultat ressemble à un œil. 


800 CHARDON 
Il ressemble à OEIL. 


900 MOIRE 
Des lignes droites issues du coin en haut à gauche remplissent petit à 
petit tout l’écran. 


1000 CONTInuer 
Ce sous-programme change la couleur du dessin et vous demande si vous 
voulez continuer. 


1100 ARCS 
Certains des sous-programmes de GRAPH font appel à ARCS. 
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10. Le Nim carré 


Le Nim carré est un jeu pour deux personnes. Comme le nom le laisse 
supposer, il s’agit d’une variante du jeu de Nim. Au cas où vous l’auriez 
oublié, le jeu de Nim est ce jeu où il vous est présenté des piles de bâtons. 
Chaque joueur enlève à son tour des bâtons d’une pile. Le joueur qui retire 
le dernier bâton gagne. 

Dans le Nim carré, nous avons un tableau carré (un peu comme un 
échiquier). Il y a sur chaque ligne un A et un B. Une personne est le joueur 
A, l’autre le B. 

Chaque joueur à son tour choisit une ligne et déplace sa lettre sur cette 
ligne sans sauter par-dessus celle de son adversaire. Le jeu se termine lorsque 
les lettres A et B de chaque ligne sont l’une à côté de l’autre. Le joueur ayant 
provoqué cette situation gagne la partie. 


D 


XX DXD XX D x * 
XX OK OK OX *X * D * 
*X OX *X *X x * OO * 


* 
A 
* 
A 
* 
A 
+ 
# 
A 
* 


KO XX OX KO XX *X * 
KA XX D X *X * * 
KRX XX *X Do*x * D 
XX DX DOX à * * * 
KO OK DOX * # * # * 


+ 
+ 
* 
# 
* 
+ 
* 
A 
* 
+ 


D 
wo 


SECOND JOUEUR — B 
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Les lettres qui clignotent peuvent être déplacées en utilisant le curseur 
droit ou le gauche. Si vous voulez déplacer une autre lettre, utilisez les 
curseurs haut ou bas. Les curseurs haut ou bas n’auront un effet que si vous 
n'avez pas encore déplacé votre lettre. Lorsque vous l’avez déplacée appuyez 
sur Ÿ pour que votre adversaire puisse jouer. Pour que la lettre Y ait un 
effet, il faut avoir déplacé une lettre. 


10 REM HEIN 

20 REM * NIM CARRE *# 

TO REM HEIN 

40 REM 

30 CLIGN=500:RIT=20: IHITI=1000: INFO=2000 

60 FING:MWAIT 20:FING 

100 REM *#% FROGRAMME FRINCIPAL ## 

110 GOSUR INFO:GOSUE IHITI 

120 REFEAT 

130 : PLOT 8B+2#X,5+2%Y,68:7AF 

149 : C=-(NOT-C) : ANSWER=FALSE 

150 : GOSUR CLIGN+BIT 

160 : FLOT 10,25, X$(C):T=0 

170 : REFEAT 

180 GET G#:G=ASC(G$) 

190 :  PLOT 8+2%X,5+2#Y,8 

206 : IF G=8 AND C=5 AND X:0 THEN A(Y)=A(Y)-1:T=T-1 
210 : IF G=8 AND C=1 AND X:A(Y)+1 THEN H(Y)=R{Y)-1:T=T-1 
220 : IF G=9 AND C=0 AND X(E(Y)-1 THEN ACYD=ACY)+1: T=T+1 
270 : IF G=9 AND C=1 AND X:9 THEN R(Y)=R(Y)+1:T=T+1 
246 : IF G<e OR G=9 THEN GOSUR CLIGN 

230 3 IF G=10 AND Y‘9 AND T=0 THEN Y=Y+1 

265 : IF G=11 AND AND T=û THEN Y=Y-1 

270 IF G$="0" AND T‘:9 THEN ANSWER=TRUE 

:  GOSUE CLIGN+HIT 

: UNTIL ANSWER 

: REM TEST DE VICTOIRE 

: STATE=TRUE 

: FOR I=0 TO 9:STATE=STATE#(A(I)=H(I)-1):NEXT 
UNTIL STATE 

Q FING:WAIT 30: ZAF:WAIT ZO0:FING 

250 FLOT 9,25,12:FLOT 23+C,25," A GAGNE." 

260 PLOT 7,3,CHR$(12)+CHR$(4)+"Autre partie? O ou N" 
270 REFEAT:GET G$:UNTIL G+$="0" OR G#&="N" 

Z80"IF G$="O" THEN RUN 

190 CLS:FOKE #26A,3:FRINT "A bientot. ":END 

300 FEM *x*x CLIGNotemnt #* 

310 FLOT 9+2#X,5+2%Y,47 

X=C#R(Y)-(C=0) #A(Y) 

O FLOT 8+2#X,S+2%V, 12: PLOT 104+24X,5+2x#Y,B 

149 PLOT 9+2#X,S5+2%Y, 65+C 

30 RETURN 

1000 REM *x* IHITialisation #* 
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1010 
1020 
1056 


1040 


1950 : 


1960 


1070 : 
1680 : 


1090 
1100 
1110 
1120 
2000 


FAFER 6:INE O:CLS:FRINT 

FRINT S#$:PRINT D$:PRINT:FRINT 

FOR I=0 TO 9 

: PRINT SPC(6) 

FOR J=0 TO OG:FRINT CHRS(126)+"#"3:NEXT 

5 FRINT:FRINT:ACI)=INT(RND(1)#5) 
B{I)=INT(RND(1)#{9-A(I1))+A(I)+1) 

PFLOT 9+24A(C1),5+2%1,65:PLOT 9+2#EB(1),5+2#1,66 
NEXT 

X$(0)="LE JOUEUR ‘A’ ":X#(1)="LE JOUEUR ‘E° " 
C=1:Y=0:FLOT 8,25, 

RETURN 

REM #*% INFOrmation *#* 

CLS:FRINT:FOFE #26A,2:FAFER &:INE © 


20 E$=" "+CHRS (27) : DHSES+ "I U+CHRSE (4) 
Oo S$=D$+" NIM CARRE" 





2050 
2060 
2070 
2080 
209û 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 


2210 


FRINT "deplacee a droite ou a gauche avec 


PRINT S$:PRINT D$:FRINT: PRINT 

PRINT D$+" de Cres Fosniowski'": PRINT D$:PRINT 

FRINT "C'est un jeu pour deux personnes, À & H.": 

PRINT "Chaque joueur,a son tour, choisi uneligne ": 

PRINT "et deplace sa lettre où il veut dans "$ 

FRINT "cette ligne, sans sauter par dessus ":; 

PRINT "celle de son adversaire. Le jeu se"; 

FRINT " termine lorque les lettres sont, sur chaque ligne": 
FRINT " l'une a cote de l’autre. Le joueur qui cree "; 

FRINT "cette situation gagne. ":FPRINT 

FRINT "La lettre qui clignote peut etre " 

PRINT "les curseurs. Si vous voulez deplacer" 

PRINT "une autre lettre, utilisez les autres curseurs.":PRINT 
PRINT'"'Lorsque vous etes prets, tapez 0" 

FRINT E$+"L'"+E$+"D";SPC(6) 3: "Tapez 0 pour jouer." 
REFEAT:G$=KHEVS#: GG=RND (1) :UNTIL G$="0" 

RETURN 


PROGRAMME PRINCIPAL 


La boucle principale répond à la touche qui a été pressée. La valeur de T 
détermine si une lettre a été ou non déplacée. RÉPONSE devient vraie (TRUE) 


lorsque T est différent de zéro et lorsque Y a été pressée. 


SOUS-PROGRAMMES 


500 CLIGNotement 
Il est utilisé pour faire clignoter la bonne position sur l’écran. Il y a un 
autre sous-programme inséré dans celui-ci — on y accède par l'instruction 


GOSUB FLASH + BIT, C'est-à-dire GOSUB 520. 
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1000 INITialisation 
Il affiche le tableau et positionne au hasard les A et les B dans chaque 


ligne. 
2000 INFOrmation 
Une courte description du jeu est contenue dans ce sous-programme. 
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11. Oh! Susanna 


Avec ce programme l’Afmos joue une mélodie et crée un dessin 
aléatoire en couleur. Pressez Q si vous voulez quitter le programme. 


10 REM HR HEHEUEEUEUEDEUEUETEUEN 

20 REM * OH! SUSANNA * 

© REM #6 EEE EEE EEE 

40 REM 

30 INFO=500 

60 FING:WAIT 20:FING 

100 REM **% FROGRAMME PRINCIPAL ## 

110 GOSUE INFO 

120 REPFEAT 

130 3: .PLOT FNR(37) ,FNR (27) , CHRS$ (FNR (7) +1) +CHR$ C32+FNR (M) ) 

140 : I=I+1:IF 1:56 THEN 1=0:J=J+#1:1F J*5 THEN J=1 

190 : B=INT((A(I)-1)/12) 

160 : IF A(I):0 THEN MUSIC 1,J+BR,A(I)-12#HR, O0: PLAY 3,0,1,L 

170 3: WAIT 5xT(I) 

180 UNTIL ÉEY$="Q" 

190 FLAY 0,0,0,0 

200 FRINT E$gs"B";ES$s"L Autre partie? O ou N"'sSFC(10) 

210 REFEAT:GET G#:UNTIL G$="0" OR G$="N" 

220 IF G$="0" THEN RUN : 

230 CLS:FRINT "A bientot.":FOKE #26A,3:INE 7:END 

300 REM **% INFOrmation ** 

910 INE S:PAFER G:CLS:DEF FNR(X)=INT (RND(1)#X) 

de0 E$=" "4CHR$ 27) : DH=ES+"J"+CHRSE (4) : PRINT 

530 PRINT D$;SPC( 10); "OH! SUSANNA": PRINT D$:PRINT:PRINT 

540 FRINT D#;SFC(6);"de Cres Fosniowski":FPRINT D$: PRINT 
30 FRINT "Regardez votre ordinateur qui cree " 

D FRINT "un dessin au hasard et joue une melodie." 

370 FRINT'"'Tapez 0 pour demarrer": 

Q REFEAT:GET G$:UNTIL G$="0" 

0 FPRINT:PRINT:PRINT "Tapez Q pour arreter.": 

00 DIM A(568),T(58):FOR 1=0 TO SG:READ A(I),T({I):NEXT 

O IF T{S8)£56 THEN FRINT "ERROR IN DATA!":END 

ù CLS:POHE #26A,10:LORES 1:L=2500:M=95 

20 RETURN 

00 DATA 6,1,8,1,10,2,13,1,13,3,15,1,13,2,10,2 

5 DATA 6,3,8,1,10,2,10,2,68,2,6,2,8,4,0,2,6,1 









720 DATA 8,1,10,2,13,3,13,1.15,1,13,2,10,2,6,3 
730 DATA 8, 1, 10, 2, 10, 2, 8, 2, 8, 2, 6,6, 0, 2, 11, 4,11,4 
740 DATA 15,2,15,5,15,1,13,2,13,2,10,2,6,2,8,4 
750 DATA 0,2,6,1,8,1,10,2,13,2,13,3,15,1,15,2 
760 DATA 10,2,6,3,8,1,10,2,10,2,8,2,8,2,6,6,0,6 


PROGRAMME PRINCIPAL 


Le programme principal joue une note et affiche un caractère aléatoire 
issu de l’ensemble des caractères. La mélodie est jouée à chaque fois sur une 
gamme différente. Voir pour la musique en annexe. 


SOUS-PROGRAMME 


500 INFOrmation 

Il contient une brève description du programme. 

Après cette description les données (DATA) sont lues. Ces données sont 
des notes (rangées dans la variable A(I)) et des intervalles de temps pour le 
rythme de la musique (rangés dans la variable T(I)). 

Une ligne de test d’erreur a été introduite pour s’assurer que toutes les 
données sont là. 
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12. Extinction 


Il y a douze lampes sur l’écran qui sont éteintes ou allumées. Au début 
seules une ou deux lampes sont allumées. Chaque lampe se déplace de 
gauche à droite. Lorsqu’elles arrivent en bout de ligne, elles reviennent au 
début. L'objet du jeu est d’éteindre toutes les lampes en appuyant sur une 
touche quelconque. 

Si la lampe dans la position repérée par * est allumée et si vous appuyez 
sur une touche, elle s'éteint. Si elle est éteinte, elle s’allume. Ainsi, si vous 
ratez votre coup, il y aura une lampe allumée de plus. Essayez donc de les 
éteindre toutes. 


EXTINCTION 


BOSS OMOOSOUOU0O 


ns 


Pressez la <barre d'espacement> pour extinction 
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10 

20 

30 

40 

90 

éû 

100 
110 
120 
130 
140 
150 
160 
170 
18û 
190 
200 
210 
220 
230 
240 
250 
260 
270 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
310 
320 
600 
410 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 


REM KXHXKEREEERERX 
REM * EXTINCTION * 
REM HRHHEHRRUMREUURUN EX 
REM 
IHITI=400: INFO=600 
FING:WAIT 20:FING 

REM *%% PROGRAMME PRINCIPAL #*# 

GOSUB INFO: STATE=FALSE: GOSUR IHITI 

REPEAT 
FOR K=O TO 10 

WAIT ZZ:FRINT A$+CHR$(11) 

IF A$=E$ THEN STATE=TRUE 
AS$=RIGHTS (A$, 4) +LEFT$S (AS, 44) 

N=ASC(MID#& (A$,235,1)) 
5: IF NOT STATE AND HEY$<:"" THEN N=71-(N-64 AND 7) 
5 AS=LEFTS(A$,22) +CHRS# (N) +MID$ (A$,24) 
: NEXT 

: WAIT RND(1)#20+41 
UNTIL STATE 
PING:WAIT 3O:PING:FRINT:FRINT SFC(14)5"RIEN JOUE" 
FRINT:PRINT Eg+"ER"+E$+"L Autre partie? O ou N'" 
REFEAT:GET G$:UNTIL G$="0" OR G#$="N" 

IF G$="0" THEN RUN 
CLS:PRINT "A bientot.":FOKE #26A,3:END 
REM *%% IHITIalisation ## 
FAFER O:INE 6:CLS:FRINT CHR& (4) 
FRINT E$+"J"3;GFC(12) 3 "EXTINCTION":FRINT:FRINT CHR&(4) 
FOR I1=0 TO 4:FRINT:NEXT 
PLOT 19,12, 94 
POKE# 264,2 'Curseur sans effet 
FOR I1=0 TO 11:B$=E$+E$+"F"4+CHRS (255): NEXT 
AS=LEFTS (E$,22)+"A"4+MIDS (B$,24) 
AS=LEFTS (AS, 14) +"A"4+MIDE (AS, 16) 
AS=LEFTS(A$,2)+"A"+MIDS (AS, 4) 
FLOT 4,16,"Fressez la ‘barre d'espace: pour 
FLOT 4,18,"eteindre les lampes." 
RETURN 
REM #* INFOrmation ** 
FAFER O:INE 7:CLS 
E$=" "4+CHR$S (27): PRINT CHR$ (4) 
PRINT Eg+"J";GFPC (9) 3 "EXTINCTION":FRINT: PRINT 
PRINT:PRINT E$+"J";GFC(é)s"de Czres Fosniowski" 
PRINT: FRINT CHRS$ (4) : PRINT: FRINT 
FRINT "PFressez la barre d'espace pour changer" 
FRINT "la couleur des lampes.":FRINT 
PRINT "Essayez de les rendre cyan ‘bleue}.'":FPRINT 
FRINT "A quelle vitesse voulez vous que les ":FRINT 
PRINT ‘lampes bougent? 0 (rapide) à 9 (lent )”; 
REFEAT:G$=FEYS$: GG=RND (1) :UNTIL G$‘":" AND G$:"/" 
ZZ=VAL (G$)+1 d 
RETURN 
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PROGRAMME PRINCIPAL 


Les lampes sont rangées dans la chaîne A$. Chaque lampe occupe 
quatre caractères. L'effet de mouvement est réalisé en déplaçant les quatre 
derniers caractères de A$ (qui représentent la lampe de droite) au début de 
A$. Si vous appuyez sur une touche, l’état de la lampe en sixième position est 
changé. Cette lampe est allumée si la valeur de N est 65 ou 70. L'expression 
N = 71 — (N—-64 AND 7) change 70 en 65 et vice versa. La vitesse à laquelle 
les lampes se déplacent est contrôlée par deux instructions WAIT. L’une est 
déterminée par le joueur, l’autre au hasard. 


SOUS-PROGRAMMES 


400 INITialisation 
Il crée la chaîne des lampes A$, trois sont allumées. La chaîne B$ est 
celle où toutes les lampes sont éteintes. 


600 INFOrmation 


Il contient une brève description du jeu. Le joueur décide de la vitesse 
de déplacement des lampes. 
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13. Courbes 


Grâce à ce programme, vous pouvez réaliser des courbes spectaculaires. 
En termes techniques, l’ordinateur ne dessinera pas le graphe de fonctions 
polaires — il y aura un léger gauchissement. Le degré de gauchissement 
dépend de la valeur de A et de B que vous rentrerez lorsqu'on vous le 
demandera. 

Reportez-vous à l’annexe 1 pour savoir comment sauvegarder vos 


dessins sur cassette. 
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10 
20 
70 
AG 
50 
60 
109 
110 
120 


130 : 


140 
150 
160 
170 
180 
190 


200 








REM 226 
REM + COURBES + 
REM  EEIERINE 
REM 
FL=500 
FING:WAIT 20:FING 

REM *## FROGRAMME FRINCIFAL #% 

INE 6:FAFER O:CLS:FOR I=G TO 6:READ A#$(I):NEXT 
REFEAT 
: TEXT:CLS:PRINT:ZZ=FRE{1) 
5: E$=" "+CHRS (27) : DH=ES+"J"4+CHRE (4) 
5 XMID=119:YMID=9G:FPF=2xFI 
5 XRATIO=XMID*., 6: YRATIO=YMID#.9 
5 PRINT D#$; SPC (12) s "COURBES": PRINT D$ 
5 FPRINT:FRINT:FRINT D$:SFC(6); "de Czes Fosniowski" 
5 PRINT D$:PRINT:PRINT "© SORTIE" 
FOR I=0 TO 6:FRINT I+15" K = "SASCI):NEXT 
FRINT:FRINT "Rentrez le numero de l’equation." 
REFEAT:GET G#:UNTIL G#:="0" AND G$<"p" 
G=VAL(G#)-1:1F G:=0 THEN GOSUE FL 


QG UNTIL G‘ô 
9 CLS:FRINT "A bientot.":END 
5 REM * AFFICHAGE ## 


310 PRINT SFC(17-LEN (AS (G))/2) 1 A$ (6) 


40 
540 
360 
370 
580 
390 
600 
610 
420 
630 
449 
CHI) 
6860 
670 


680 à 


490 
Fac 
710 
720 
730 
740 
750 
200 
819 
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IF G=0 THEN DEF FNA(Z)=1 

IF G=1 THEN DEF FNA(Z)=GIN(2#7) 

IF G=2 THEN DEF FNA(ZI=SIN(7#2) 

IF G=3 THEN DEF FNA(Z)=(1+2#C05(2))/3 

IF G=4 THEN DEF FNA(Z)=(1+C0S(7))/E 

IF G=5 THEN DEF FNA(Z)=(14SIN(2#7))/2 

IF Gé THEN DEF FNA(Z)=(1+2*C0S (2#27))/3 
FRINT:FRINT "Tapez les valeurs de À et K puis 
PRINT “tapez (return), Pour un affichage standard"; 
PRINT "Az %& B=1.": PRINT: INPUT" Valeur de A"3Â 
INFUT "Valeur de E":E 

HIRES:FOKE H26A,Z 

FRINT GSPC(IZ-LEN(A# (GI /2)1A$(G)35"  Az"sAî" BE 
FOR Z=0 TO FF+.01 STEP .01 

5 X=XMID+XRATIOXCOS (AKZ)#FNA(Z) 

5 Y=YMID+YRATIO#SIN (E#73 #FNA (2) 

CURGSET X,Y,i 

NEXT 

FING:FOR I=i TO GS: INK I:MWAIT 7E:NEXT 

Eg=" MA+CHRE (27) 

PRINT E$+"R"+E$+°L Tapez 0 pour continuer" 
REPEAT:UNTIL HEYS$=N" 

REPEAT:GET G$:UNTIL G$="0" 

RETURN 

DATA 1,SIN(Z#7),SINC7#2),1+2*C0S(2),1+C0S{2) 
DATA 1+5IN(Z2#2),1+Z2xC06 (2#2) 


PROGRAMME PRINCIPAL 


Il affiche les différents choix qui vous sont offerts; essayez-les tous. 
Avec l'option 1 (A = 1 et B = 1) le résultat sera un cercle. 


SOUS-PROGRAMMES 
500 PL 


Ce sous-programme affiche le graphe choisi. De plus, il attend que vous 
pressiez Ÿ qui vous redonnera la liste des possibilités offertes. 
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14. Cascade 


Dans Cascade, vous devez attraper une balle lancée du haut de l’écran 
vers le bas. Une balle peut être lancée d’une quelconque des dix positions en 
pressant une des touches comprises entre 0 et 9. 

Différents obstacles se présentent devant votre balle. Si la balle heurte 
l’un d’eux, elle peut être réfléchie, déviée d’un angle droit ou même 
absorbée. Un O dévie la balle, un X la réfléchit tandis qu’un carré rouge 
l’absorbe. Les obstacles peuvent changer après un choc. 


CASCADE 


1,2 3 4 5 6 7 8 9 © 


k ro 2 00 OX 00, 0x 00 XX 
à 
$ 
j". 


9 | 8 
x 
Q 0 oë 


G 


X 





10 REM HUE 

20 REM * CASCADE *# 

30 REM #36 

40 REM 

90 CHANGE=500: IHITI=1000: INFO=2000 
60 PING:WAIT 20:FING 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 


210 


REM *#% PROGRAMME PRINCIFAL ## 
GOSUR INFO:GOSUR IHITI 
REPEAT 
: REPEAT:GET G$:UNTIL G$>"/" AND G$<":" 
5 X=2+34VAL(G$)-50%(G$="0") 
5: Y=4:A=0:B=1 
5: PLOT X,Y,Z 
: STATE=FALSE 
: REPFEAT 
U=X+A: V=Y+B:W=SCRN CU, V) 
IF UX{4 OR Uÿ33 OR V£4 THEN SHOOT: STATE=2 
IF V#24 THEN FING:WAIT 20:FING:STATE=1] 
IF W:70 THEN GOSUE CHANGE 
PLOT X,V, 232: X=X+40:Y=Y+E 
: IF STATEZ2 THEN FLOT X,Y,Z 
: UNTIL STATE 
UNTIL STATE=1 





70 FLOT 8,26,5$ 


REPEAT:GET G#:UNTIL G$="0" OR G$="N" 
IF G$="0" THEN RUN 


‘00 CLS:POKE #26A,3:FRINT "A bientot. ":END 
300 REM *%*% CHANSEment #** 





IF W=255 THEN ZAP:STATE=2 
IF W=88 THEN A=-A:B=-B:PING 

IF W=79 THEN C=-B:B=A:A=C:FING 
PLOT U, V, ACFNR(P-3)) 


9 RETURN 


1000 
1010 
1920 
1030 
1040 
1950 
1060 
1070 
1080 
1990 
1100 
1110 
1120 


1130 : 


1140 
1150 
1160 
1170 
1180 
1190 


REM #+% IHITIalisation **% 

DEF FNR(X)=INT (RND(1)#X) 

PAPER O:INF 6:CLS:727=126 

PRINT E$+"E"3;GFC (12) 3 "CASCADE": PRINT 

FRINT E$+"EH "; 

FOR 1=1 TO 9:FPRINT CHR#(48+1):SFC(2) ; :NEXT 
PRINT "O" 

F=7:FO0R 1=0 TO F-1:READ A(I):NEXT 

FOR J=4 TO 33 

5 IF S#INT(J/3)<5%J-2 THEN PLOT J,4,A{1+FNR(2)) 
NEXT 

FOR 1=5 TO 24 

: PLOT 4,1,A(1) 

FOR J=4 TO 32 STEP 6 

5 IF RND(1)2.5 THEN PLOT J+FNR(6),1,A(FNR(F) ) 
: NEXT 

: PLOT 33,1,A(2) 

NEXT 

FOR J=5 TO 32 STEP 3:FLOT J,S+4+FNR(17),A(2):NEXT 
S$=CHRS (2) +CHR$ (12) +"Autre partie? 0 où N'" 
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1200 RETURN 

1210 DATA 255,6889,79,79,: 
DO REM *+% INFOrmation ## 

o FAFER OSINE 6:CLS:POFE H26A, 2: FRINT 

Eg=" "4CHRS (27) : DÉSER+ "IT MECHRSE (4) 

Q PRINT D#&:SPC(12) 3 "CASCANE': PRINT Dé: FRINT:FRINT 

à PRINT D#:SFC (6); "de Cres Fosniowski":FRINT Dé: PRINT 

9 FRINT "La balle doit atteindre le bas de " 

O FEINT "l'ecran. Fressez une touche entre © et"i 

70 FRINT "9 pour liberer une balle.Les obstacies": 

2080 | "peuvent absorber, devier où refiechir" 

2090 F "votre balle.'":FRINI 

2100 " "Un carre rouge absorbe la balle. Un 0" 

2110 “la devie et un X la reflechit. ":PRINT 

2120 PRINT E$+"ER"+E#+"L Tapez 0 pour commencer." 

2150 REFEAT:G$=FEYS$: GG=RND (1) :UNTIL Gé&="0" 

2140 RETURN 

























PROGRAMME PRINCIPAL 


La balle se déplace jusqu’au moment où elle rencontre un obstacle après 
quoi la direction du mouvement peut changer ou la balle peut avoir été 
absorbée. 

Si STATE est faux (FALSE), la balle est active. La valeur de STATE devient 
vraie (NOT FALSE) si la balle a soit été absorbée, soit atteint le haut de l’écran. 

Si STATE = 1 le jeu se termine (sauf si vous voulez rejouer). 

Si STATE = 2 c’est que votre balle a été absorbée, faites un autre essai. 


SOUS-PROGRAMMES 


500 CHANGement 

Il est utilisé lorsque la balle rencontre un obstacle. 

Il change la direction du déplacement et la nature de l'obstacle 
rencontré. 


1000 INITIalisation 
Ce sous-programme crée la disposition aléatoire des obstacles. 


2000 INFOrmation 
Ce sous-programme donne une brève description du jeu. 
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15. La Cucaracha 


C’est une simple mélodie accompagnée de graphiques qui décrivent les 
notes. 


La Cucaracha 
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10 
20 
50 
40 
Sie 
6û 
190 
119 
120 
170 
140 
150 
160 
170 
180 
190 


REM DDR ARE DE DE DEEE 
REM * LA CUCARACHA *# 
REM HER DEEE DEEE TEE 
REM 
INFO=500 
FING:WAIT 20:FING 
REM #%#% FROGRAMME FRINCIFAL ## 
GOSUR INFO:J=2:K=0 
REFEAT 
I1=1+1:FLOT 14,26,"La Cucaracha" 
IF I:MAX THEN 1=0:J=J+1:CLS:INE J:1F J*5 THEN J=2 
B=INT((A(I)-1)/12) 
EsE+1:1F 4(I)=0 AND K527 THEN K=0:CLS 
: FLOT K,24-A(1),95+63#(A(I)=0) 
IF ACI):0 THEN MUSIC 1,J+B,A(1)-12*B,0:PLAY 3,0,1,L 
: WAIT 5xT(1) 


200 UNTIL FEY$="Q" 


210 
220 
250 
240 
250 
300 
510 
320 
530 
540 
530 
560 
370 
980 
3970 
600 
610 
620 
830 
700 
710 
720 
750 
740 
750 
760 
770 
780 
790 
800 
810 

20 
850 
840 
850 
860 
870 
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FLAY 0,9,0,0 

FRINT E$;"H"3E$s"L Autre melodie? O0 ou N":SFC(10) 
REFEAT:GET G#$:UNTIL G$="0" OR G$="N" 

IF G$="0" THEN RUN 

CLS: PRINT "A bientot.":FOKE #26A,3:INE 7:END 

REM *%# INFOrmation ** 

INK 5:PAPER O0:CLS:DEF FNR(X)=INT( RND( 1 DkX ) 

E$=" "+CHR$ 27) : D$=ES+"J"+CHRS (4) : FRINT 

PRINT D$:SFC(9)3;"LA CUCARACHA":FRINT D$: PRINT: PRINT 
PRINT D$:SPC(6):"de Czes Kosniowski":PRINT D$:PRINT 
FRINT "Une simple melodie...... "2 PRINT 

FRINT "Tapez O pour commencer..." 

REFEAT:GET G$:UNTIL G$="0" 

FRINT:PRINT:FRINT "Tapez Q pour sortir": 

DIM A(100),T(100) :MAX=-1 

REPEAT:MAX=MAX+1:READ A(MAX),T(MAX):UNTIL A(MAX)=-1 
IF MAX£:87 THEN FRINT "ERREUR DE DONNEES" :END 
MAX=MAX-1:CLS:FOKE #26, 10:INK 6:L=2500 

RETURN 

DATA 
DATA 
DATA 104 
DATA 13,1,12, 
DATA 6,1,8,1, 
DATA 8,1,8,1, 
DATA 20,1,0,1 
DATA 22,1,20,1,18,1,17,1,15,1,13,4,0,1 
DATA 8,1,8,1,6,1,13,3,17,1,0,1 

DATA 8,1.8,1,8,1,13,3,17,5,0,1 

DATA 135,1,0,1 

DATA 13,1,12,1,12,1,10,1,10,1,8,4,0,1 
DATA B,1,8,1,8, 3,15,1,0,1 

DATA 8,1.8,1,8, 3,15,5.0,1 

DATA 26,1,0,1 

DATA 22,1,20,1,18,1,17,1,15,1,15,2 
DATA 13,1,13,1,13,1,0,6 

DATA -1,-1 





.19,1,10,4,8,4,0,1 
.12,3,15,1,0,1 
.12,3,15,5,0,1 


He 








PROGRAMME PRINCIPAL 


A chaque fois qu’une note est jouée, un caractère approprié est dessiné 
sur l’écran. Les notes sont rangées dans la variable A(I) et l'intervalle de 
temps qui les sépare dans T(I). Pressez Q pour arrêter le programme. 
Reportez-vous à l’annexe 4 pour les notes de musique. 


SOUS-PROGRAMME 


500 INFOrmation 

Il contient les renseignements. Les notes et les intervalles de temps sont 
lus dans les variables A(T) et T(I). 

Une ligne qui teste les erreurs éventuelles de données est incluse dans ce 
sous-programme. 
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16. Horloge puzzle 


Le principe de ce jeu inventé par Czes Kosniowski et John Ewing est 
celui d’un puzzle dont les pièces peuvent «glisser » . 

Il y a sur un tableau douze cases, numérotées de 1 à 12, et un espace vide 
(voir ci-dessous). | 





Le but est de déplacer les chiffres contenus dans les cases pour qu'ils 
apparaissent comme sur une horloge. 
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Les curseurs sont utilisés pour déplacer l’espace vide sur le tableau 


Le puzzle est très amusant, provoque parfois la fureur; il n’est 
certainement pas facile ! 


11 12 
10 HORLOGE 


9 HORLOGE 
8 HORLOGE 
7 6 
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10 R 


EM HET DEEE 


20 REM *# HORLOGE PUZZLE * 


210 
220 


GOSUR DÉPL: X=U:Y=V:Z=W:GOSUR DEPL 
STATE=TRUE 


30 REM HEURE 

40 REM 

90 DEPL=500: IHITI=1000:INFO=2000 

100 REM ## PROGRAMME PRINCIPAL ## 

110 GOSUB INFO:GOSUR IHITI:STATE=FALSE 

120 REPEAT 

130 : ANSWER=FALSE 

140 : REPEAT 

150 : REPEAT:GET G$:G=ASC(G$ ):'UNTIL G)7 AND G(12 OR G=81 
160 : U=X+(G=8)-(6=9) :V=Y+(6=11)-(6=10) 

170 : IF U>=0 AND U<3 AND V:=0 AND V5 THEN ANSWER=TRUE 
180 : IF U=1 A°D (V=1 OR V=3) THEN ANSWER=FALSE 

190 UNTIL ANSWER 

200 : W=5#U+V:P#(Z)=F$(W):PS(W)="  " 


250 
240 
250 
260 
270 
280 
290 
300 
310 
500 
510 
520 
1000 
1010 
1020 
1070 
1040 
1050 
1060 
1070 
1080 
1090 
1190 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
200 
1210 


1220 
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FOR 1=0 TO 14:STATE=STATE*#(P$(1)=Q$(I1)):NEXT 
: IF G=81. THEN STATE=2 
UNTIL STATE 

IF STATE{2 THEN FING:WAIT 50:PING: 
PLOT 24,1,CHR$(12)+CHR$(2)+"Autre partie?" 
PLOT 26,35,CHR$(12)+CHR$(2)+"0 ou N'" 
REFEAT:GET G$:UNTIL G$="0" OR G$="N" 

IF G$="0" THEN RUN 
CLS:POKE #26A,3:FRINT "A bientot.":END 
REM ** DEPLacement ** 
PLOT 7+5XX, 2+5XY, P$CZ ): PLOT 7+5XX, 3+5XY, P$(Z) 
RETURN 

REM ## IHITIalisation ** 
E$=CHRS$ (27) : F$=CHR$ (255) 

FAPER O:INKH 7:CLS 

E$="  "+E$+"D"+F$: X$=E$+"E"+R$ 
AS=BS+XH+XH+X$: YS=RS 

FOR 1=0 TO 4:Y#$=Y$+F$:NEXT 
C$=B$+E+"R"+YS+X$ 

FOR 1=0 TO 14:B$=R$+F$:NEXT 

REM IMPRESSION TABLEAU 

PRINT CHR$(30)+R$ 

FOR 1=0 TO 4: FOR J=1 TO 5 

: IF 2#INT(I/2)=1 AND J“#5 THEN PRINT A$ 

5 IF 2*INT(I/2)#5I AND J£5 THEN PRINT C$ 

: IF J=S THEN PRINT B$ 

NEXT:NEXT 

R$=CHR$(1):FLOT 25,6,R$+"11 12 1" 

: PLOT 25,9,R$+"10 HEURES 2":PLOT 25,12,R$+" 9 HEURES 3° 
FLOT 25,15,R$+" 8 HEURE 4" 

FLOT 25,18,R$+" 7 6 5" 

REM LES FIECES 

DIM F$(14),0$(14) 

FOR 1=1 TO 9:P$(1)=" "+CHR$(48+1I):NEXT 

FOR 1=0 TO 2:F$(10+1)=+"1"+CHR$ (48+1) :NEXT 


D P$(O)="  MiPS(1T)=F$+FS$ 
FOR I1=0 TO 14:READ F:Q$(I1)=FS$ (FH) :NEXT 
FOR I1=0 TO 14:F$(1)=Q$(I):NEXT 
REM MELANGE 
FOR 1=1 TO 10 
5 ESINT(RND(1) #6) +9x INT (RNL' (1) #2) 
L=INT (RND (1) #6) +9#INT (RND (1) #2) 
100  R$S=P$S(CH) 2 FE) =FSE(L):F$(L)ERE 
) NEXT 
Oo REM AFFICHAGE DES FIECES 
9 FOR Y=Q TO Z:FOR Y=0 TO 4 
Z=5*xX+Y:GOSUR DEFL 
250 NEXT:NEXT 
160 X=1:Y=2:72=7 
Q RETURN 
00 DATA 11,19,9,8,7,12,13,0,13,6,1,2,3,4,5, 
2000 REM *#*% INFOrmation *# 
2010 E$=" "+CHR$ (27): FAFER O:INE 7:CLS:FRINT CHR$(4) 
2020 PRINT E$+"J"3;SPC (8); "HORLOGE FUZZLE": PRINT: PRINT 
2030 FRINT:PRINT E$+"J";SFC(8) "de Cres Fosniowski" 
2040 FRINT CHR$(4):FRINT 
2050 FRINT "Remettez les nombres de l’horloge dans": 
2060 FRINT "leur position exacte." 
2070 PRINT "Utilisez les curseurs pour deplacer la": 
2080 PRINT "case vide.";E$+"ATapez O pour sortir":PRINT:PRINT 
2090 PRINT E$+"L'"+E$+"ETapez O0 pour jouer" 
2100 FOFE #26A,2'Curseur sans effet 
2110 REPEAT:G$=KEYS$: GG=RND (1) :UNTIL G$="0" 
2120 RETURN 








PROGRAMME PRINCIPAL 


Le programme principal est constitué de deux parties. La première 
attend que vous pressiez un des curseurs (code ASCII 8 à 11) ou la lettre Q 
(code ASCII 81). Si vous pressez un des curseurs et si ce dernier indique une 
position correcte pour la case vide, alors le déplacement est réalisé. Si vous 
pressez Q le jeu s'arrête. La seconde partie teste les nombres pour savoir s’ils 
sont dans la position correcte. 


SOUS-PROGRAMMES 

500 DEPLacement 

Il affiche simplement les nombres (ou l'espace vide) aux positions 
exactes. 
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1000 INITIalisation 

C’est un sous-programme assez long qui engendre l'affichage de 
l’horloge. De plus, l’ordinateur mélange les pièces pour le jeu. 

Remarque : 

Si vous décidez de changer le nombre de fois que l’ordinateur mélange 
les pièces, soyez sûr que ce nombre soit encore pair. Si ce nombre est impair, 
le puzzle devient impossible à résoudre. 


2000 INFOrmations 
Ce sous-programme contient une brève description du jeu. 
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17. Les fenêtres 


Neuf fenêtres sont numérotées de 1 à 9. Les rideaux en sont ouverts. 
Une femme passe derrière ces fenêtres une lampe à la main. Elle va de la 
fenêtre 1 à 9 puis revient à la fenêtre 1 et ainsi de suite. Si vous pressez le 
numéro de la fenêtre où se trouve la femme, alors les rideaux se ferment. Le 
but du jeu est de fermer tous les rideaux. 

Remarque : 

Il y a une petite astuce dans le programme qui vous permet de tricher — 
les détails ne seront pas donnés ici. 


He ES 77 


LES FENÊTRES 


Pressez la bonne touche au bon moment 
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19 KR 
20 KR 
20 KR 
39 K 
50 KE 
100 
110 
120 
170 
140 
150 
160 
170 
180 
190 
200 
210 
220 
500 
9310 
520 
930 
540 
1600 
1910 
1920 
1030 
1040 
1950 
1960 
1970 
1080 
1090 
1100 
1110 
1120 
1130 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2125 


2130 
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EM HIDE 
EM * LES FENETRES +* 
EM EEE 
EM 
LANC=500: IHIT=1000: INFO=2000 
REM ## FROGRAMME FRINCIPAL ## 
GOSUR INFO: GOSUR IHIT 
REFEAT 
: PLOT X(C).,Y,Z(C) 
5 C=C+1:IF C9 THEN C=<1:WAIT 1+RND(1) #20 
: FLOT X(C),Y,W(C):WAIT ZZ 
:1F KEY$=CHR$(Z(C)) THEN GOSUB BLANC 
UNTIL STATE 
FING:WAIT 20:PING 
PRINT: PRINT:PRINT E$g+"L Autre partie? O ou N'" 
REFEAT:GET G$:UNTIL G$="0" OR G$="N" 
IF G$="0" THEN RUN 
FOFE #26A,3:CLS:INE 7:FRINT "A la prochaine.":END 
REM ## ELANC ## 
Z(C)=32 
FOR I=-1 TO 1:FLOT X(C)-1,Y+1," ":NEXT 
W(C)=22:MM=MM+1: IF MM>8 THEN STATE=TRUE 
RETURN 
REM *# INITialisation ** 
FAFER O:INE 2:CLS 
FRINT: PRINT: PRINT: PRINT: 
FOR I1=1 TO 9:X(1)=4X1-1:Z(1)=48+1I:W( I )=255:NEXT 
FOR J=0 TO 2:FOR 1=1 TO 9 
: FOR K=0 TO 2:FRINT CHR$(Z(I))3;3:NEXT 
5 PRINT " "3; 
NEXT:FRINT:NEXT 
Y=5:2=255:C=1:MM=0 
FOFE #26A,2 ‘Curseurs sans effet 
FLOT 13,11,CHR$(4)+"LES FENETRES" 
FLOT 0,13,"Fressez la bonne touche au bon moment" 
STATE=FALSE ‘ 
RETURN 
REM #*% INFOrmation *# 
FAFER O:INE 7:CLS:FRINT CHRS$ (4) 
E$=" "+CHR$(27) 
PRINT E$+"J"3;SPC(9)3"LES FENETRES": PRINT: PRINT 
PRINT:FRINT E$+"J"3;SPC(5); "par Czes Kosniowski" 
FRINT CHR$ (4) :PRINT:PRINT 
FRINT "Fermez les rideaux en" 
PRINT "pressant la bonne touche" 
FRINT " au bon moment." 
FRINT:FRINT "A quelle vitesse voulez vous jouer?" 
FRINT "O (rapide) a 9 (lent) ": 
REPEAT:G$=FEY$:GG=RND (1) :UNTIL G$>"/" AND G#$<":" 
ZZ=VAL(G#) +1 
INIT=1000 
RETURN 


PROGRAMME PRINCIPAL 


La boucle principale regarde si vous tapez la bonne touche. 


SOUS-PROGRAMME 


500 BLANC 

Il dessine les rideaux des fenêtres, i.e. des blancs remplacent l’affichage. 
Le rideau C est fermé si W(C) = 32. Il est ouvert si W(C) = 255. La raison 
est que CHRS (32) est un carré blanc alors que CHRS (255) est un carré de 
couleur. 


1000 INITialisation 

La variable X(1) contient la position de la fenêtre I. La variable W(I) 
contient l’information sur le fait que le rideau de la fenêtre I est ouvert ou 
non. 


2000 INFOrmation 


Ce sous-programme affiche une brève description du jeu. Il demande de 
plus au joueur de choisir la vitesse du jeu. 
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18. Surfaces 


C’est un court programme qui réalise des dessins de surfaces en trois 
dimensions d’une grande netteté. 

Remarque : 

Le temps global est assez long mais le résultat vaut la peine d’attendre. 
Si vous le désirez, vous pouvez garder le dessin sur cassette afin de ne pas 
avoir à tout recommencer à chaque fois. Voir l’annexe 1 pour plus de détails. 
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10 REM #HHHHHONENEX 
20 REM * SURFACES + 
30 REM #36 


40 REM 

50 PL=500 

100 -REM #%*% PROGRAMME FRINCIPAL ## 

110 INK 6:FAPER O:CLS:FOR 1=0 TO S:READ A$(I1):NEXT 
120 REPEAT 

130 : TEXT:CLS:PRINT:ZZ=FRE (1) 

140 : E$=" "+CHR$ (27) : D$=E$+"J"+CHR$ (4) 

150 : XMID=119:YMID=99:FPP=2#P1:S=S0OR (2) /2: SS=XMID+*S 
160 : PRINT D$:SPC(11) ; "SURFACES":FRINT D$ 

170 PRINT:PRINT 

180 : PRINT D$:SPC(6) "de Czes Kosniowski" 

190 PRINT D$:PRINT 

200 : FOR I1=0 TO S:PRINT I5A$(I):NEXT 

210 : PLOT 28,11, "ou":PLOT 24,13, *R=S@R( XKkX+YXY )° 
220 : PRINT:PRINT "Donnez votre selection. ": 

230 : REFEAT:GET G$:UNTIL G$>="0" AND G$<"7" 

240 : G=VAL(G$):1F G>0 THEN GOSUE FL - 

250 UNTIL G=0 

260 CLS:PRINT "A bientot.":END 

500 REM ## Flot (affichage) +** 

310 HIRES:FOKE #26A,2 

520 PRINT,,,A$(G) 

530 FOR A=-SS TO 5S+5%S 

540 : MAX=-YMID: TT=SS+A-10XSXINT(( A+ABS(A))/10/5S) 
950 : FOR B=-TT TO TT+S*4 STEF 10%*S 

960 : X=S#(A+R) : Y=S#(B-A) : Z=R: R=SOR(X#X+Y#Y) 

970 : IF G=1 THEN Z=12*C0S(R/5)+E 

580 : IF G=2 THEN Z=YMID#EXP (-R#R/600)+E 

990 : IF G=3 AND R£:O THEN Z=2#XMIDY#SIN(R/5) /R+E 
600 : IF G=4 THEN Z=12*C0S(X/10)*CO0S(Y/10)+ER 

610 : IF G=5 AND RO THEN Z=X#xY#(X-Y)#(X+Y) / (1000%R)+E 
620 : FB=1:IF ZMAX THEN FB=3 ELSE MAX=Z 

620 : U=XMID+A:V=YMID-Z*S 

640 : IF V>1 AND V{2#YMID THEN CURSET U,V,FB 

650 : NEXT 

660 NEXT 

670 PING:FOR 1=1 TO 6:INK I:WAIT 75:NEXT:E$=" "+CHR$(27) 
680 PRINT E$+"H"+E$+"LTapez YŸ pour continuer" 

690 REPEAT:UNTIL KEY$="" 

700 REPEAT:GET G$:UNTIL G$="Y" 

710 RETURN 

800 DATA FIN ,Z = COS(R),2Z = EXP(-R#R) 

810 DATA Z = SIN(R)/R,Z = COS(X) *COS(Y) 

820 DATA La selle de singe 
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PROGRAMME PRINCIPAL 


Le but principal du programme y est présenté. On vous demande quelle 
surface vous voulez dessiner. 


SOUS-PROGRAMME 


500 PL 

Il affiche (PLOT) la surface désirée. L’effet de perspective du dessin est 
obtenu grace aux variables A,B ainsi que X et Y. Les points cachés ne sont 
pas imprimés ; ceci est réalisé en comparant la valeur du point à afficher avec 
MAX. 
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19. Le Danube bleu 


C’est une simple mélodie en référence à Strauss. Reportez-vous à 
l’annexe 4 pour les notes de musique. 


10 REM HIER 

20 REM * DANUBE HLEU +* 

FO REM HEIN 

40 REM 

90 INFO=500 

100 REM ##*# FROGRAMME FRINCIPAL #+# 

110 GOSUB INFO:J=5:KH=0 

20 REPEAT 

130 : PLOT 6+A(1),286-A(1),32 

140 : I=I+1:1IF IMAX THEN 1=G:J=J+1:1F J*5 THEN J=3 
150 : B=INT((A(I)-1)/12) 

160 : PLOT 6+A(1),26-A(1),14+J 

170 5 IF A(I)*0 THEN MUSIC 1,J+H,A(1)-12*H,0:FLAY 1,0,1,L 
180 : WAIT B*xT(I) 

190 UNTIL KEY$="Q" 

200 PLAY 0,0,0,0 

PRINT E$:"B";E$;"L Autre partie? O ou N';SPC(10) 
à REFEAT:GET G$:UNTIL G$="0" OR G$="N" 

IF G$="0" THEN RUN 

Q CLS:FRINT "A bientot.'":FOKHE #26A,3:INE 7:END 

500 REM **% INFOrmation ** 

510 INE S:FAPER O:CLS:DEF FNR(X)=INT(RND(1)#X) 

320 E$=" "4CHRS$ (27) : D$=E$+"J"+CHRS (4) : FRINT 

330 PRINT D$:SFC (8); "DANUBE BLEU'":FRINT D$:FRINT: PRINT 
540 FRINT D$:SFC (6); "De Ces Kosniowski":PRINT D$:FRINT 
390 FRINT "Une simple melodie..... "PRINT 

360 FRINT "Tapez 0 pour commencer."; 

370 REPEAT:GET G$:UNTIL G$="0" 

580 FRINT:PFRINT:FRINT "Tapez Q pour sortir.":; 

590 DIM A(100),T(100) :MAX=-1 

400 REPEAT:MAX=MAX+1:READ A(MAX),T(MAX) :UNTIL A{MAX)=-1 
610 IF MAX()69 THEN PRINT "Erreur dans les DATA':END 
620 MAX=MAX-1:CLS:POKE # 26, 10: INK 6:L=2500 

630 PRINT:PRINT D$;SPC(8) ; "DANUBE BLEU":FRINT D$ 

649 RETURN 
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700 DATA .8.2,8,4,20,2,20,4,17,2,17,4 
710 DATA ; 8, 2, 8, 4, 20, 2, 20, 4, 18, 2, 18, 4 
720 DATA 3 .10,2,10,4, 

730 DATA 3, ic 2 10,4:2 2 

740 DATA .8,2,13,4,25.2,25,4,70, 

750 DATA .8,2,13,4,25,2,25,4,22,2,22,4 
760 DATA .10,2,10,7,7,2,8,2,17,8 

770 DATA 4,3,2,10,4,8,2,1,6 





780 DATA 


PROGRAMME PRINCIPAL 


Il joue chaque note pendant le temps voulu. En même temps, la hauteur 
du son est représentée graphiquement. A chaque fois que la mélodie est 
jouée, la clef est changée. 


SOUS-PROGRAMME 


500 INFOrmation 

Les renseignements sont donnés ici. Lorsqu'ils sont terminés le 
programme lit les données nécessaires, c’est-à-dire les notes et les intervalles 
de temps. 
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20. Le serpent 


Ce programme est un jeu d’action dans lequel vous devez contrôler une 
créature (un serpent) en utilisant les curseurs. Essayez de faire manger la 
nourriture par le serpent mais évitez les rochers et le mur (le bord de l’écran). 
De plus, ne vous détruisez pas vous-même. Chaque fois que le serpent mange 
un morceau, il devient plus long et se déplace d’une façon plus posée. Le 
succès est atteint lorsque le serpent est long de dix unités. C’est assez prenant 
que d’essayer de nourrir ce serpent en pleine croissance mais toujours 
affamé. 


79 


10 REM #4 EX 
20 REM # LE SERFENT # 


EO REM HELENE 





4 REM 
30 TEST=4û: DIRECT=S GE: NOUR=6GQ 
60 IHITI=1000: CAR=1ZO 0: INFO=2000 


100 REM ##* FROGRAMME FRINCIFALE *# 
© GOSUE INFO:GOSUE IHITI:GOSUE NOUR 
20 REFEAT 
ÉS=FEYS: IF E$::"" THEN GOSUR DIRECT 
5 : FOR I=L TO 1 STEF -1:F(1)=F(1-1):Q(1)=Q(I-1):NEXT 
F{0)2=FP (0) +DF:0Q (0) =0 (0) +DQ: FO=SCRNIF (0) ,0(0)) 
FLOT F(G),0(0),R:FLOT F(L),Q(L),32 
: IF PQ THEN GOSUR TEST 
Oo UNTIL STATE OR Lit 
QG IF LiG THEN FLOT 15,0,"HIEN JOUE'":FPING:UWAIT 10:FING 
NG IF STATE THEN FLOT 17,0,"AIE!!":FAFER 1 
210 WAIT ZO:FAFER G:FRINT 
à FRINT E$+"L'iSFC(8): "Autre partie? O0 ou N'"':SFC(10) 
ï REFEAT:GET G#:UNTIL G$="0" OR G$="N" 
5 IF G$="0" THEN RUN 
à CLS:FRINT "A bientot.'":FOKE #26A,3:INE 7:END 
DO REM ##% TEST ## 
IF FO=R THEN SHOOT:STATE=1 
i IF FO=W THEN EXFLODE:STATE=Z 
IF FQ=C THEN ZAP:GOSUR NOUR 
445 RETURN 
SO0 REM #* DIRECTion ## 
510 <ASC(ÉS):IF FEES OR EH 
520 DF=(KE=8) -(Kk=9) : DO= (FE 
530 RETURN 
600 FREM #* NOURriture #% 
FOR Isû TO 3 
D REFEAT: A=FNR (T6) +235 BeFNR (25) +1: UNTIL SCRN(A,R)=32 
9 IF I1=0 THEN FLOT 4,B,C:L=L+1 
IF 1:09 THEN FLOT A,R,.U 
Gi NEXT 
669 FETURN 
1000 REM ## INITialisation #* 
1010 PAPER CGiINE 2:CLS:R=37: DIM F(20),0Q (20): W=255 
1020 FOR X=2 TO 38:PLOT X,0, W:PLOT X, 26, W: NEXT 
1030 FOR Y=1 TO 25:PLOT 2,Y, W:PFLOT 38, Y, W:NEXT 
1040 F(O)=TG:PF(1)=TI1:F(2)222:0(0)222:Q0(1)=22:Q(2) #22 
1656 Lel:FOR I=û TO L:FLOT F(I),Q(I),R:NEXT 
1060 DF=-1:DQ=û:C218: START=#H400+RE#8: AA=#AUOO 
1070 POKE AA,Z:1F FEEF(AA)::2 THEN START=START-#8000 
1080 GOSUR CAR: START=START+8:GOSUR CAR 
1090 STATE=G 
1190 RETURN 
1200 REM #*# CARaractere #+# 
1210 FOR I=START TO START+7:READ X:FOKE I, X:NEXT 
220 RETURN 
D DATA 12,12,20,63,63,30,12,12 












#11 THEN RETURN 
=11)-(HK=10) 














710 DATA 21,21,14,14,4,4,4,4 
O0 REM *% INFOrmation ** 
INF 6:FAFER OG:CLS:DEF FNR(X)=INT (RND (1) #X) 
D E$=" "+CHR$ (27) : D$=<ES+"J"4+CHRSE (4) : PRINT 
à PRINT D$:SFC(B8)3"LE SERFENT':FRINT D$: PRINT: PRINT 
O PRINT D$:SFC(6);"de Czes KFosniowski":PRINT D$:PRINT 
n FRINT "Guidez le serpent vers la nourriture. ":PRINT 
2060 FRINT "Mais evitez les obstacles et le mur." 
2070 FRINT "De plus ne vous autodetruisez pas!":PRINT 
2080 FRINT "Utilisez les curseurs pour changer de" 
2090 FRINT"'direction.":FRINT 
2100 FRINT "Tapez 0 pour partir....."s 
à REPEAT:G#=KEYS$: GG=RND (1) :UNTIL G$="0" 
A FOKE #26A,2 
à RETURN 











LE PROGRAMME PRINCIPAL 


Le serpent se déplace jusqu’à ce qu’il rencontre un obstacle. En utilisant 
les curseurs, vous pouvez changer la direction de son déplacement. Le 
programme principal balaye le clavier et change la direction du serpent si on 
lui en donne l’ordre. Il regarde aussi si le serpent a heurté un obstacle. 


LES SOUS-PROGRAMMES 


400 TEST 

Si la tête du serpent arrive dans un endroit qui n’est pas vide (code 
ASCII 32), ce sous-programme est utilisé. Le serpent peut soit heurter le mur 
ou un rocher (si PQ = W), soit s’autodétruire (si PQ = R) ou enfin manger 
de la nourriture (si PQ = C). 


500 DIRECTion 

Ce sous-programme entre en jeu si une touche est pressée. Si l’un des 
curseurs est actionné, la direction correspondante du mouvement est 
calculée. 


600 NOURriture 
Ce sous-programme place sur l’écran non seulement la nourriture mais 
aussi deux rochers. 


1000 INITialisation 
Il dessine le mur d’enceinte et crée deux caractères spéciaux (pour le 
serpent et la nourriture). 
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1200 CARactère 
C’est un court sous-programme qui lit les données et les implante aux 
bons endroits pour des caractères spéciaux. 


2000 INFOrmation 
Ce sous-programme contient une brève description du jeu. 
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21. Poursuite spatiale 


Vous êtes aux commandes d’un vaisseau spatial qui plonge dans le vide 
interplanétaire. Vous manquez de carburant et vous êtes obligé de diriger 
votre vaisseau vers les sources d’énergie qui passent parfois non loin de vous. 
Ces sources d'énergie ressemblent à des astérisques. 

Une récente explosion de planète a laissée de nombreux débris dans 
l’espace, vous devez les éviter. Votre vaisseau dispose d’une grande 
puissance qui vous permet de le diriger avec les curseurs gauche et droit. 
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10 R 
20 KR 
30 R 
40 KR 
90 C 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 


EM REED DE DEMI DE DEEE DEEE 
EM * POURSUITE SPATIALE + 
EM HD DE DD DE DE DEEE DE DE DEEE DEEE 
EM 
HOC=500: IHITI=1000: INSTRUCT=2000 
REM %*% FROGRAMME FRINCIFAL *# 
GOSUR INSTRUCT:GOSUR IHITI 
FOR I=1 TO 26:PRINT:NEXT:  REPEAT 
: PLOT 39XRND( 1 ), 26, 38 

FOR I=1 TO 20 

PLOT 39%RND( 1 ), 26, 46: PLOT X, Y, 32 

X 


: PRINT 
5 IF X:0 AND FEEK(769)=223 THEN X-1 


IF:X238 AND FEEKH(769)=127 THEN X=X+1 
XY=SCRN(X,Y):1F XY=46 OR XY=:8 THEN GOSUR CHOC 
FLOT X,Y,:37 

5: NEXT 

UNTIL COUNT :=MAX 

CLS 


250 FRINT CHA$(4) 





500 
919 
920 
920 
940 
5930 
260 
370 
380 
390 
1000 
1010 
1920 
103€ 
1940 
1950 
1960 
1070 
1690 
1100 
1110 
2000 
2010 








2040 


2050 
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D PRINT E$+"J"+E$+"E"3:SPC(8); "VOTRE SCORE: "3SC 


FRINT:FRINT: PRINT: WAIT 200 

FRINT Eg$+"N'+E$+"A Autre partie? D ou N . 
FRINT CHR$(4) 

REFEAT:GET E$:UNTIL E$="0" OR E$="N" 

IF E$="0" THEN RUN 


9 FOHE #26A,3:CLS:FRINT "A bientot. ":END 


REM ##% CHOC #+# 

IF XY=46 THEN EXPFLODE:FAFER 1:WAIT 20:COUNT=COUNT+1 
POFE TP+2:9,48+MAX-COUNT 

IF XY=38 THEN FING:FAFER 2:WAIT 20:FING:SC=SC+250 
FAFER 3S:WAIT 20:FAFER © 

IF RND(1)2:,5 THEN FLOT Z9#RND(1),0,38 

FOR 1=2 TO LEN(STRS$(SC)) 

5: POFE TF+1-1,48+VAL(MIDS(STR#(SC),1,1)) 
NEXT 

RETURN 

REM ##% INITIalisation ** 
X=18:Y=0: COUNT=0: SC=0: AA=#A0 00 : A=0 

FOFE AÂ,Z:1F FEEE (AA): :2 THEN U=#800û 
START=46080+25748-0: TF=H#EREO-Q 

FOR 1=0 TQ 7:FEAD J:FOFE START+I,J:NEXT 
FOR I=û TO 7:READ J:FOFE START+8+I,J:NEXT 
FOR 1=36 TO 39:FOFE TPF+I,Z32:NEXT 

POEE TF+29,48+MAX:INE 7:FAFER O:CLS 
RETURN 

DATA 45,63,45,12,12,45,63,45 

DATA 235,18,12,6%,63,12,18,273 

REM *# INSTRUCTions *# 

Eg$=" "+CHRS(27) :CLS:FOFE #268, 10 

INE 7:FAFER 1:CLS:FRINT CHR& (4) 








PRINT E$+"J"+E#&+"à"sSPC(4) 3 "POURSUITE SFATIALE" 


FRINT:PRINT:FRINT:WAIT 20 
FRINT E$+"J"4+E#$+"D de Cres Fosniowski‘ 


 FRINT CHRK$ (4): FRINT 
0 FRINT:FRINT "Filotez votre vaisseau spatial vers 
Q FRINT "les sources d'energie - mais faites" 


FRINT:FRINT "Utilisez les curseurs gauche et droit" 
FRINT "pour vous deplacer. BONNE CHANCE" 
D PRINT: PRINT 
2139 FRINT E$+"äNombre de chocs autorises?" 
2140 FRINT E$+"àTapez un nombre entre 1 et 9." 
21950 REPEAT:G#=EE VS: GGERND (1) sUNTIL G$:"0% AND G$i":" 
2160 MAX=VAL(G#) :FING:UWAIT 30:FING 
2170 RETURN 








PROGRAMME PRINCIPAL 


Les lignes montent sur l’écran une par une grâce à la commande PRINT. 
Des débris sont déposés sur chaque ligne créée par PLOT 39+RND(1), 26, 38. 

PEEK (769) lit le clavier. Si le curseur gauche est pressé, il a la valeur 223 
(les autres touches ont aussi la même valeur). Le curseur droit a la valeur 
127. L'utilisation de PEEK (769) est plus rapide que celle de de KEYs. 

Tout ceci continue jusqu’au moment où le vaisseau rencontre un débris 
cosmique. 


SOUS-PROGRAMMES 


500 CHOC 

Ce sous-programme entre en jeu si le vaisseau heurte un objet. Il 
modifie le nombre de «crashes» ou de sources d’énergie déjà utilisées en 
fonction de l’objet rencontré. Le score est affiché sur la première ligne de 
l'écran, généralement utilisée pour les messages. 


1000 INITIalisation 
Il initialise les compteurs et crée deux caractères spéciaux : le vaisseau 
spatial et les sources d’énergie. 


2000 INSTRUCTions 


Il donne une courte description du jeu. Il vous demande aussi combien 
de «crashes» vous vous permettez avant la fin du jeu. 
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22. Epelez-le 


Dans ce jeu, un mot clignote un court moment sur l’écran. Regardez-le 
attentivement car vous allez devoir l’épeler. Pour vous aider, vous pouvez 
choisir la vitesse de disparition du mot de l'écran. 


EPELEZ-LE 
MOT 8 


Tapez le mot et pressez <return> 
? TIMONNIER 


Non, la réponse est TIMONIER 


Pressez Y pour continuer 
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10 R 
20 R 
20 R 
30 KR 
50 E 
100 
110 
120 


150 : 


140 
150 


160 : 


170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
500 
510 
320 
530 
1900 
1010 
1020 
1030 
1040 
1100 
1110 
1120 
1150 
1140 
1150 
1160 
1170 
1180 





1200 
1219 
1220 





EM HUMEUR UE 

EM * EFELEZ LE +* 
EM RH XEEUEDEUEUEUNEUEN 

EM 
FEL=500: IHITI=1000: INFO=2000 

REM #*% PROGRAMME FRINCIFAL ## 
GOSUR INFO:GOSUR IHITI 
FOR I=1i TO 10 

5 A$=RS$CINT (RND (1) xMAX) ) 
: GOSUE EFEL:FING:WAIT 506:FING: PRINT: PRINT 
5: FRINT SFC(I6-LEN(A#) /2) : D$+A$ 

PRINT D$:WAIT T:GOSUE EFEL:FRINT 
PRINT:PRINT "Tapez le mot puis (return)" 
PRINT: PRINT SFC(13)3:INFUT E$ 

PRINT: FRINT: PRINT: FRINT 

IF A$=B$ THEN FING:SC=SC+1:FLOT 14,12,"BIEN VU" 
IF A$<2H$ THEN SHOOT:PFLOTS, 17,N$+A$ 

FRINT SFC(9); "Tapez O0 pour continuer": 
: REPEAT:GET G$:UNTIL G$="0" 

NEXT 
GOSUR EFEL:FLOT 15,3," " 

PRINT SFC(6);"Vous avez obtenu ";SC;" sur 10." 
FRINT:PRINT E$+"L'+E$+"R Autre partie? O0 ou N'" 
REFEAT:GET G$:UNTIL G$="0" OR G$="N" 

IF G$="Q" THEN RUN 

CLS: PRINT "A bientot.":END 
REM *# EFELlation *# 

CLS: PRINT:PRINT S$:PRINT D$+E$+"A":PRINT:PRINT 
FLOT 15,3,CHR$ (8) +"MOT"+STRS (1) 
RETURN 

REM **% IHITIialisation #* 

MAX=-1:DIM F#(100) 

REPEAT:MAX=MAX+1:READ R$ (MAX) :UNTIL R$(MAXi="x" 
N$="Non, la reponse est " 

RETURN 

DATA TABLE,CHAISE, LIVRE, CREILLER, CUBE, TAFIS, ILE 
DATA VERRE, VOLUME, TORCHE, CUISINE, BOUTEILLE, TISSU 
DATA DORMIR, COURIR, MANQUE , VOLEUR, TIMONIER, FERSÜNNE 
DATA FLASTIQUE, BANANE, GANT, HALLE, DEBUT, DEFUTE 
DATA VIANDE,RESINE,MISERE, DIRE, FLEUR, TABLEAU 
DATA PLATEAU, BOITE, DIABLE, JOLIE,ENFIN, EGLISE 
DATA COUPABLE, SOLDAT, LUNDI, MARDI , MERCREDI 

DATA CHAMERE, SALUT, SOLEIL, FAFIER, CHAINE, VINGT 
DATA JEUDI, VERTICAL, SELECTION, CIRQUE, THEATRE 


... 


à DATA MAGIQUE, LETTRE, JUNGJE, INNOCENT,, INJURE 


DATA INFLUENCE, INCIDENT, BOMBE, ATOME, GRAND 
DATA CHEMISE, VALISE, TRIVIAL, DEBUT, GENERAL 
DATA FEUFLE, TRANQUILLE, PROPRIETE, POLICE, FOISON 


Q DATA *# 


REM *#INFOrmation ## 


5 FAPER O:INE 7:E$=" "A4CHR$ (27) : D$=ES$+"J"+CHRS# (4) 
O S$=D$+E$+"A EFELEZ LE" 
Q GOSUB EFEL:FLOT 15,35," F 
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2040 FRINT D$+E#$+"A de Czes Fosniowski" 

2050 FRINT D$:FRINT: PRINT: FRINT 

069 FRINT "Un mot va clignoter sur l'ecran." 

70 FRINT "Regardez le bien puis epelez le...,." 

O0 FRINT:FRINT "Quelle vitesse? 1 (rapide) a 9 (lent)"s;” 





 REFEAT: G$=FEYS$: GG=RND (1) :UNTIL G$:"O" AND G#&‘":" 
D T=104VAL (G$) 

9 FRINT:FRINT:FRINT SFC(IO)I"O.E, — soyez pret." 
29 RETURN 


PROGRAMME PRINCIPAL 


Un mot est choisi au hasard parmi ceux contenus dans les données. 
Deux PINGS après, le mot est affiché sur l’écran (en caractères de hauteur 
double). L'ordinateur attend alors que vous tapiez le mot. Ceci est suivi d’un 
commentaire approprié. Après dix questions, votre score est affiché. 


SOUS-PROGRAMMES 


500 EPELez 
Il est utilisé pour nettoyer l’écran après l'affichage d’un mot. 


1000 INITIalisation 


Les mots sont rangés dans les variables chaîne R$(1). Vous pouvez, si 
vous le désirez, ajouter des mots à la liste. Cependant, si le nombre total de 
mots dépasse 100, changez la Dimension à la ligne 100. 


2000 INFOrmation 


Il contient une brève description du programme. Il est aussi utilisé pour 
déterminer la vitesse de disparition des mots de l’écran. 
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23. Aide au dessin 


Exercez vos capacités artistiques grâce à ce programme d’aide au dessin, 
simple mais néanmoins efficace. Vous pouvez dessiner des lignes horizon- 
tales, verticales ou en diagonales. Les lignes que vous dessinez peuvent être 


visibles ou invisibles, selon votre choix. 
Utilisez les curseurs pour tracer les lignes verticales et horizontales. Pour 


dessiner en diagonale, utilisez les touches suivantes : 
I pour en haut à gauche 
\ pour en haut à droite 
Z pour en bas à gauche 


Î pour en bas à droite 
En tapant la lettre I vous changez la nature (visible ou invisible) de la 


ligne que vous tracez. Pour quitter le programme, tapez Q. Si vous voulez 
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garder un dessin sur cassette, vous devrez ajouter quelques lignes 
supplémentaires au programme. Reportez-vous à l’annexe I pour plus de 


dét 


10 
20 
30 
40 
50 
100 
110 
120 
150 
140 
150 
160 


170 : 


180 
190 


200 : 


219 


220 
250 
240 
280 
260 
270 
280 
290 
400 
410 
420 
430 
440 
450 
600 
610 
620 
430 
"40 
650 
660 
670 
680 
690 
700 
710 
720 

50 
740 
730 
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ails. 


REM RAD DEEE RER JTE DEIEE 
REM * AIDE AU DESSIN * 
REM EEE RIT IEEE 
REM 

IHITI=400: INFO=600 

REM ##% PROGRAMME #*# 

GOSUR INFO:GOSUB IHITI 

REFEAT 

: CURSET X,Y,2 

: GET G$:G=ASC(6G$#) 

: A=iG=8)-(6=9)-(6=<92)+(6=49)-(6=47)+(6=90) 

: B=(G=11)-(6=10)+(6-92)+(6=49)-(6=47)-(6=90) 
CURSET X,Y.,0 ‘efface la position actuelle 
: IF X+A)239 OR X+AC0 THEN A=0:PING 
5 IF Y+R5199 OR Y+H<0 THEN H=0:FING 
U=X:V=Y: X=X+A: Y=Y+E 

IF G=73 THEN FR=-NOT-FE 

IF NOT ((A=0) AND (EH=0)) THEN CURSET U,V,FR 
: Z=FRE (1) 
UNTIL G6=81 

TEXT:E$=" "+CHR$ (27) 

FRINT E$+"E"+E$+"LAutre partie? O ou N'"':PRINT 
REPEAT:GET G$:UNTIL G$="0" OK G#$="N" 

IF G$="0" THEN RUN 
CLS:PRINT "a bientot.":FOKE #26A,7:END 
REM ** IHITIalisation #*# 

X=119:Y=99:FR=1:HIRES 

FOHE #26, 10 

PRINT “Utilisez les curseurs et i,\,Z ou /," 
FRINT:FRINT "I - Dessin on/off. Q - Sortie.": 
RETURN 
REM #*% INFOrmation *# 

INE 6:PAFER O:CLS:FRINT 
E$=" "4+CHRS$ (27) : D$=E$+"J"+CHRS$ (4) 

PRINT D$:SFC(B) 3: "AIDE AU DESSIN":PRINT D$: PRINT: PRINT 
FRINT D$:SFC({6);"de Czes Kosniowski":PRINT D$: PRINT 
FRINT'"Faites un dessin grace a ce programme. ":PRINT 
FRINT *"Utilisez les curseurs pour aller en" 
PRINT "haut, en bas, a droite ou a gauche." 
FRINT "Utilisez aussi pour les diagonales,le" 
PRINT ‘"i,le\, le Z et le /,":PRINT 
FRINT "Four faire une ligne invisible, tapez" 
FRINT "I, tapez le a nouveau pour redessiner." 
FRINT "Tapez Q pour sortir du programme. ":PRINT 
FRINT E$+"E'"+E$+"LTapez O0 pour commencer." 
REFEAT:GET G$:UNTIL G$="0" 
RETURN 


PROGRAMME PRINCIPAL 


Le programme principal attend que vous pressiez une touche. Si l’une 
des touches de mouvement est pressée, la direction de celui-ci (A, B) est 
calculée. Si le point (X + A, Y + B) est toujours sur l’écran, il est affiché par 
PLOT. Si vous tapez I, la valeur de FB passe de 1 à Ÿ ou de ÿ à 1. Ceci 
détermine si le point affiché est visible ou non. 


SOUS-PROGRAMMES 

400 INITIalisation 

Il initialise les variables et donne des indications sur le rôle de certaines 
touches du clavier. 


600 INFOrmation | 
Il donne une courte description du programme. 
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24. Rebondissement 


Vous pouvez faire rebondir une balle sur votre raquette, cette balle 
parcourra alors l’écran. Vous déplacez votre raquette avec les curseurs 
gauche et droit. L'écran est initialisé avec plusieurs bandes de couleurs 
constituées de carrés. À chaque fois que la balle rencontre un de ceux-ci, il 
disparaît. Le but du jeu est d’atteindre avec la balle le sommet de l’écran. La 
balle rebondit sur les bords de l’écran, sur les carrés de couleur et sur votre 
raquette. Pour donner un peu de piquant au jeu, des obstacles, qui 
disparaissent lentement, ont été ajoutés. 


Vous avez 7 chances 
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10 REM HE DEEE DIEU NE 

20 REM * REBONDISSEMENT +#* 

FO REM HR EEEDEE DE DE DE DE DE JE EE 

40 REM 

50 FERD=500:FIN=600: IHITI=1000: INFO=2000 
100 REM #* FROGRAMME FRINCIPAL ## 

110 GOSUE INFO:GOSUR IHITI 

120 REFEAT 

130 : FLOT X,Y,32Z:X=X+DX:Y=Y+DY:FLOT X,Y,126 
140 : IF X(3 OR X)37 THEN DX=-DX:PING 
190 5 V=Y+4DY:WESCRN(X,V) 

160 : THEN DY=-DY:FING 

170 3  W=127 THEN FLOT X,V,32 







180 : IF V#25 AND W£Z33 THEN GOSUE FERD 
190 : 


V£1 THEN GOSUE FIN 
+0 AND FEEK(769)=223 THEN 2Z=Z-1:PFLOT Z,26,E% 
2235 AND FEEK(769)=127 THEN Z=2Z+1:PLOT Z,26,R$ 
UNTIL STATE“ 1 
20 FRINT Eg$gs"R"sES#$s"L Autre partie? Q ou N" 
9 REFEAT:GET G$:UNTIL G$="0" OR G'="N" 
240 TEXT:IF G$="Q" THEN RUN 
60 CLS:FRINT "A bientot.'":FOKE #26, 3:END 
JO REM #%* FERDU #% 
310 EXFLODE:STATE=STATE-1:DY=-DY:WAIT 100 
920 FLOT X,Y,32:FLOT 2,26," # 
930 PLOT 19, 0, MID$(STR$( STATE), 2)+" coups. * 
340 IF STATE=1 THEN FLOT 27,0,". " 
990 X=1O+FNR (20): Z=X:DX=24FNR (2) -1 
560 FLOT X,Y,126:PLOT Z,26,R$ 
370 RETURN 
600 REM #% FIN #% 
610 FING:WAIT SO: FING:WAIT 50:FING 
820 PLOTIS,1,CHR$ (6) +CHR$(12)+"HRIEN JOUE" 
&:Q WAIT 100:STATE=-1 
640 RETURN 
1000 REM ** IHITIalisation ** 
1010 CLS:INK 7:PRINT SPC(7); "Vous avez "; 
1020 PRINT MID$(STRS# (STATE) ,2)5" coups." 
1040 A$="":FOR I=1 TO 37: A$=A$S+CHR$S( 255 ): NEXT 
1050 PRINT:FOR I1=1 TO SKILL:PRINT CHR$(127+I )+A$: PRINT: NEXT 
1060 PLOT 0,26,9:Y=25: X=10+FNR (20) : Z=X 
1070 EB$=CHR$(G)+UHHR " 
1980 DX=2*xFNR(2)-1:DY=-1:PFLOT X,Y,1Z6:PLOT Z,26,E$ 
1090 FOR I=1 TO 15 
1100 : FLOT 2+FNR (34) ,2#SFILL+ZI+FNR (6) ,96 
1110 NEXT 
1120 RETURN 
2000 REM #* INFOrmation #*% 
2010 INK S:PAPER 0:CLS:DEF FNR(X)=INT( RND( 1 DKX ) 
2020 E$=" "+CHR$ (27) : D$=<ES+"J"+CHRS (4) : FRINT 
2030 PRINT D$3;SFC (9): "REBONDISSEMENT": PRINT D$: PRINT: PRINT 
2040 FRINT D$:;SFC(6):"de Czes Kosniowski":PRINT D$:FRINT 
2050 FRINT "Utilisez les curseurs droit et gauche" 
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2060 FRINT "pour attraper la balle. Les obstacles" 
2070 FRINT "disparaissent lentement tant que la " 
2086 FRINT "balle n°a pas atteint le sommet.":FRINT 
2090 FRINT "Choisissez votre niveau de difficulte.": 
2100 FRINT "1 (facile) a 4 (difficile)."s: 


2110 REFEAT:G$=HEY$: GG=RND (1) :UNTIL G$:>"O" AND G$<"5" 
2120 SFILL=2+VAL(G#): STATE=127-SÉILL:FOFE #26, 10 
2130 RETURN 


LE PROGRAMME PRINCIPAL 


Le programme principal déplace la balle et regarde quel obstacle, s’il y 
en a un, elle rencontre. PEEK (769) lit le clavier. S’il prend la valeur 223 c’est 
que le curseur gauche a été pressé, la raquette est alors déplacée vers la 
gauche. S'il vaut 127, elle est déplacée vers la droite. 


LES SOUS-PROGRAMMES 


500 PERDu 
Si la balle passe à côté de la raquette, ce sous-programme émet le son 
approprié et remet à jour les données. 


600 FIN 
Si la balle a atteint le sommet de l’écran, ce sous-programme émet le son 
approprié et affiche BIEN JOUE. 


1000 INITIalisation 
Il affiche les lignes composées de carrés et les obstacles aléatoires. 


2000 INFOrmation 
Ce sous-programme contient une brève description du jeu. 
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25. Spirales 


C’est un court programme qui dessine des spirales sur votre écran en 
mode haute résolution (HIRES). Après l’initialisation des variables, plusieurs 
spirales aléatoires sont dessinées. 

Pour dessiner une spirale, vous devez afficher des points de la forme : 

(XMID + Zx+COS(Z), YMID + Z+SIN(Z)) 
pour des valeurs de Z comprises entre 0 et S+xp1. Le point (XMID, YMib) est le 
centre de la spirale. . 
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10 REM HER 
20 REM X SPIRALES x 


30 REM KR IEREURUEE 
40 REM 


100 
110 
120 
130 
140 
150 
200 
210 


230 


240 
250 
26û 
270 
280 
290 
300 
710 





340 
250 
360 
370 
380 
390 
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REM #*#*# FROGRAMME PRINCIFAL ## 

INK 6:PAFER O:CLS:DEF FNR(X)=INT (RND (1) #X) 

E$=" *+CHR$(27 ):D$=E$+"J"+CHRS$( 4 ): PRINT 

FRINT D$3:SPC (10); "SPIRALES":PRINT D$: PRINT: PRINT 
FRINT D$;:SFC (6); "de Czes Kosniowski":PRINT D$:PRINT 
FRINT "Des spirales colorees aleatoires..." 

REM ** Affichage (plot) +**# 

WAIT 2006:HIRES:FOKE #26A,2 

PRINT SPC(13) ; "SFIRALES" 

FOR Y=0 TO 199:CURSET O,Y,3:FILL 1,1,FNR(7)+1:NEXT 
FOR 1=0 TO 9 

XMID=FNR (175) +40: YMID=FNR (148) +26 

FOR Z=0 TO 15+FNR(10) STEF.1 

CURSET XMID+ZC0S(Z),YMID+Z#SIN(Z),1 

: NEXT 

NEXT 

FING 

FOR I1=0 TO 5 

: FOR Y=0 TO 199:CURSET O,Y,1:FILL 1,1,FNR(7)+1:NEXT 


Q NEXT 


WAIT S50:FING:FOR I1=1 TO 6:INF I:WAIT 75:NEXT 
E$=" "+CHR#(27) 

FRINT E$+"B'"+E$+"L Autre partie? O ou N'" 
REPEAT:G$=EHEYS#:UNTIL G$="0" OR G$="N" 
TEXT:1F G$="0" THEN RUN 

CLS:PRINT "A bientot.":END 


26. Knees up Mother Brown! 


C’est une chanson anglaise bien connue. Si vous n’en connaissez pas 
encore les paroles, cela ne va pas durer. A chaque fois qu’une note est jouée, 
le mot ou la syllabe correspondant est affiché. Si vous connaissez les paroles, 
vous pouvez regarder l’homme faisant ses exercices, sautant en mesure avec 
la musique. La chanson est jouée avec des clés différentes. 






KNEES UP MOTHER BROWN ! 


l’ve just been to a ding-dong 
down dear old Brixton way 
Old Mother Brown the Pearly Queen's 
a hundred years today 

Oh! what a celebration! 

was proper lah-di-dah! 

Until they roll’'d the carpe up 

and shouted Nah then a 

Ooh! knees up Mother Brown 

knees up Mother Brown 

Under the table you must go 
Ee-i-ee-i-ee-i-oh! 

If | catch you bending 

lIl saw your leg right off 

So knees up knees up x 
Don't let the breeze up 
Knees up Mother Brown! 
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10 REM HHOMEOHCEOUEOUEUEUEEUEJEHEDE HE DEEE JE JE DEEE HE 

20 REM * KNEES UF MOTHER BROWN! * 

2O REM 6e NEED DEEE DE DE DE DEEE DE DE DE DE DE DEEE 

40 REM 

S0 SELECT=300: INFO=500: CHR=800 

100 REM #* PROGRAMME PRINCIFAL #* 

110 GOSUR INFO 

120 REFEAT 

130 : PLOT 25,Y,"  ":PLOT 25,41,"  " 
140 : I=Il+1:IF I>MAX THEN GOSUE SELECT 

150 : B=INT((A(I)-1)/12):Y=25-A(1):KH=NOT K 
160 : FRINT C#$(1): 

170 : FLOT 25, Y,CHR$ (J-1) +A$ (-K) 

180 : PLOT 235, Y+1,CHRS (J-1)+B$ (-K) 

190 : IF ACI)ÿ0 THEN MUSIC 1,J+B,A(1)-12#R,0: PLAY 1,0,1,L 
200 : WAIT 74T(1) 


UNTIL KEY$="Q" 


ÿ PLAY 0,0,0, 0: PRINT 
5 FRINT E$;"E":E#;"LUne autre fois? O ou N";SFC(10) 


D REFEAT:GET G$:UNTIL G#="0" OK G$="N" 


IF G$="0" THEN RUN 


D CLS:FRINT "A bientot.":FÜKE #26A,73:INE 7:END 


0 KEM #x* SELECTion #+* 


I=Q: CLS: PRINT: FRINT D#: SPC (4) E$: PRINT D$:FRINT:FRINT 


D J=J+i: IF J*5 THEN J=3 


RETURN 


00 REM #* INFOrmation *+% 


INÉ S:FAFER G:CLS:DEF FNR(X)=INT (RND(1)#X) 


320 E$=" "+CHRS$ (27) : D$=E$+"J"4+CHRS (4) : PRINT 
D E#="ENEES UF MOTHER EROWN!" 
940 PRINT D$:SFC(4) 3 E$: PRINT D$: PRINT: PRINT 
D FRINT D#:SFC (6); "de Czes Fosniowski":FRINT D#:FRINT 
564 FRINT "Une simple melodie....... "PRINT 
à PRINT "Et quelques mots....,...... "2 PRINT 
980 FRINT "Tapez 0 pour commencer....": 
9 RÉEPEAT:GET G$:UNTIL G+&="0" 
00 FRINT:PRINT:FRINT "Tapez Q pour sortir. ":FRINT:FRINT 
19 FOR J=0 TO 1 


9 NEXT 


A$(J)=CHRS (38-J)+CHR$ (96-J) 
E$(J)=CHR$(124-J)+CHR$(126-J) 


50 PRINT Dé+A$(0)4"  "4ASCL):FRINT D$ 
O PRINT D$+B$(0)+"  "4R#(1):FRINT D$ 
Q START=#B400+17748: AA=HAUO0 


9 POFE AA,Z:IF FEEK (AA): 





THEN START=START-#8000 


Oo GOSUR CHR 


START=START+8: GOSUR CHR: STARTESTART+57%*6: GOSUR CHR 


O START=START+B: GOSUE CHR: START=START+27%8: GOSUE CHR 
D FOR J=0 TO Z:START=START+8:GOSUR CHR: NEXT 


Q DIM ACI2O),T (120) ,C$ (120) : MAX=-1: WMAX=-1 


9 REFEAT:MAX=MAX+1:READ A(MAX),T(MAX) :UNTIL A(MAX)=-1 
D REFEAT:WMAX=WMAX+1:READ C$(WMAX) :UNTIL C$(WMAX)="-1" 





IF MAX£:WMAX THEN FRINT "Erreur de donnees":END 


770 

780 

790 

800 

810 

820 

1000 
1010 
1020 
1050 
1049 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1150 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 


1270 


MAX=MAX-1:CLS:FOFE #264,10:INE 6 

J=2:E=0: 1=MAX:Y=123:L=2500 

RETURN 

REM xx CHF #% 

FOR I=START TO START+7:READ R:POFE I,R:NEXT 
RETURN 

REM #%*# DONNEES (DATA) ## 

REM DATA - Characteres 

DATA 3 .1.1,7,11,19 

DATA : 3,3 
DATA 
DATA , 34,4,8, 
DATA 35,3, 2, 2, 23 2, 2 
DATA 
DATA 34, 
DATA 232 








DATA 
DATA 
DATA 
DATA 
DATA 

DATA 2,12,2,13,2,10,2,15,2, 

DATA 8,2,0,4,8,2 

DATA 5, 2,8, 2, 8,2, 8, 2,8, 8, 6, 2, 10, 2, 10, 2, 10,2, 10,8 

DATA ‘2,1,12,1,12,2,12,2,12,2,10,2,9,5,B,4 

DATA 12,2,12,2,12 2,12,2,10,2,9,2,8,4 

DATA 5,2,8,2,8,2,8,2,8,2,8, 4, 14,2,15,2 .10,2,10,2 

DATA 19,2,19,6,11,2 12,2,12,2,10,2,8,2, 12,2,12,1 

DATA 12,1,10,2,8,2,68,2,8,2,10,2,12,2,17,6,8,2,û0,8 
DATA -1,-1 

REM DATA - FAROLES 

DATA Il've ,just ,been ,to ,a 24093 "4008 

DATA down ,dear ,old ,Brix,ton , "way 














280 DATA Old ,Mot,her , Brown the ,Fearl,y , "Queen's 








ü DATA a ,hun,dred ,years ,to,"day 

9 DATA Oh! ,what ,a ,cel,ebra,"tion! 

o DATA was ,prop,er ,lah-,di-,"dah! 

9 DATA Un,til ,they ,roll'd ,the ,car,pet ,"up 

5 DATA and ,shou,ted ,Nah ,then , "Ma 

9 DATA Ooh! ,knees ,up ,Moth,er ,"Erown 

à DATA knees ,up ,Moth,er ,"Erouwn 1 
ù DATA Under ,the ,tab,le you ,must ,"go 

DATA Ee-,i-,ee-,i-,ee-,1i-,"oh! 

Q DATA If ,1 ,catch ,you ,bend,'"ing 


390 DATA I'11 ,saw ,your ,leg ,right ,'"off 


1400 
1410 
1420 
1450 


DATA So ,knees ,up ,knees , "up à 
DATA Don't ,let ,the ,breeze ,"up / 
DATA Enees ,up ,Moth,er ,Brouwn! 4, , 4, 

DATA -i 
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LE PROGRAMME PRINCIPAL 


Il joue chaque note et affiche sur l’écran les paroles et l’homme. Tapez 
Q pour sortir du programme. L'homme est fait de quatre caractères, deux 
contenus dans AS(I) et deux autres dans BS(I). Il a deux apparences suivant 
que I = You 1. Les notes sont contenues dans A(I) et les intervalles de temps 
dans T(I). Les parole sont rangées dans CS(I). Reportez vous à l’annexe 3 
pour plus de détails sur la musique. 


LES SOUS-PROGRAMMES 


300 DELECT 
Lorsque la chanson est finie, l’écran est rafraîchi. Une nouvelle clé est 
choisie pour la musique. 


500 INFOrmation 

Il contient une brève description du programme. Huit caractères 
spéciaux sont créés. Lorsqu'ils sont utilisés par groupe de quatre, un homme 
de grande taille apparaît. Il peut apparaître sous deux états. 

Après cela, les données (DATA) des notes et des paroles sont lues. Soyez 
très attentifs lorsque vous tapez les données des paroles, chaque espace blanc 
est important. Un blanc de plus ou de moins et tout le programme devient 
inopérant. Pour chaque DATA, le dernier élément a été mis entre guillemets 
pour s’assurer qu’il y a le bon nombre de blancs. Dans deux DATA, il y a une 
virgule en fin de ligne ; cela signifie seulement que la donnée suivante est 
vide. 


800 CHR 


Ce sous-programme lit les données des caractères spéciaux et les POKE 
aux bons endroits. 


100 


Jeu de mémoire 


C'est un programme qui peut aiguiser votre mémoire, un jeu pour deux 
dont les principaux éléments sont 22 paires de cartes repérées par les lettres 
comprises entre A et V. Les lettres sont invisibles. A votre tour, vous pouvez 
retourner deux cartes et regarder leur lettre. Si elles sont semblables, vous les 
gardez et vous pouvez en retourner deux autres. Autrement, les cartes sont 
retournées faces cachées et c’est à l’autre joueur de tenter sa chance. Le jeu 
continue jusqu’au moment où il n’y a plus de carte à retourner. Le joueur qui 
a le plus de cartes a gagné. 

En fait il y a 45 cartes, 22 paires et une carte seule repérée par le symbole 
@. Cette carte ne peut être retirée du jeu. 

Une carte qui clignote peut être retournée en tapant Y. Utilisez les 
curseurs pour changer de carte clignotante. 







DE MÉMOIRE 












15 ï ce AE cs M BEE HAE A 
den BOB HA 066 48 DES 608 BEEN 
don ae B8i 2: SE ::: 688 ::: if 
NES AE c2: AE ONE <:: HUE HIS 


joueur rouge joueur bleu 
3 3 
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10 REMOTE 

20 REM * JEU DE MEMOIRE +* 

} REM HUE 

40 REM 

50 CHANGE=S500:DEFL=600:OUI=700:VISU=800: RETO=900 
60 IHITI=1000:INFO=2006 

100 REM *xx% FROGRAMME FRINCIFAL ## 

110 GOSUR INFO:GOSUR IHITI 

20 REFEAT 

FLOT X(M),24,8:FING:WAIT S0:FING 
M=-NOT-M:FLOT X(M),24,12 











REPFEAT 
Z2=12:GOSUE CHANGE: WW=0 
REPEAT 
REFEAT:UNTIL KEY#&="" 
REFEAT 


GET G$:G=ASC(G#) 
UNTIL G*7 AND G:12 OR G6=79 
IF G*7 AND G*12 THEN GOSUR DEFL 
IF G=79 THEN GOSUR VISU 
UNTIL WWï1 
STATE=TRUE: B$="###" 
:IF F#(0)=F$(1) THEN GOSUE QUI 
: GOSUR RETO : UNTIL STATE 
à UNTIL SC(0)+SC(1) 21 
9 CLS:FRINT:FRINT SPC(1G) SNS: PRINT D$ 
FING: PRINT: FRINT "SCORES: "2: PRINT: PRINT 
WAIT SO0:FING:WAIT S9:FING 
FRINT E$; "AJOUEUR ROUGE "3 SC (QG) : PRINT: FRINT 
0 FRINT E$;"DJOUEUR BLEU "3SC{1):FRINT: PRINT: WAIT 99 
360 PRINT E$:"B"3E$S"L Autre partie? Q ou N" 
A£0 REFEAT:GET G$:UNTIL G$="0" OR G#="N" 
370 IF G$="0" THEN RUN 
380 CLS:FRINT "A bientot.":INK 7:FOKE #26A,2Z:END 
S00 REM *## CHANGEment *## 
310 FOR I=0 TO ? 
920 : PLOT 4xX+2, 4KY+4+I, ZZ 
530 NEXT 
540 RETURN 
&Q0 REM #* DEFLacement ** 
10 ZZ=8:GOSUR CHANGE 
420 IF X+0 AND G=8 THEN X=X-I 
&:0 IF X£8 AND G=97 THEN X=X+1 
&40 IF YO AND G=11 THEN Y=Y-1 
650 IF Y£4 AND G=10 THEN Y=Y+1 
860 22=12:GOSUE CHANGE 
6470 RETURN 
700 REM #** OUI #*# 
710 FING:SC(M)=6C (M) +1 
720 FLOT 20xM+9,26,STRS# (SC (M) à 
736 STATE=FALSE: B$="..,." 
740 IF SC(Q)+SC(1) 21 THEN STATE=TRUE 
730 RETURN 
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800 REM #*% VISU #% 
BIC IF SCRN(4#X+7,4#Y4+5)€3:275 THEN RETURN 
820 FOR I1=0 TO 2 
830 : PLOT 4xX+3, 4KXY+4+I, A$( X+9XY ) 
840 NEXT 
850 ACWW)=X:R(WW)=Y:FS (WW) =AS$ (X+9#Y) 
860 WW=WW+1 
870 RETURN 
900 REM #* RETOurnement ** 
910 ZZ=8:GOSUR CHANGE: WAIT 100 
920 IF STATE THEN SHOOT:WAIT 00 
950 FOR J=0 TO 1:FOR I=0 TO 2 
940 : PLOT 4KA(J)+3, 4XR(J)+4+1,E$ 
950 NEXT:NEXT 
960 FING 
970 RETURN 
1000 REM #*% IHITIalisation +** 
1010 CLS:INE 5:FING 
1020 FRINT:PRINT SPC(IO) ENS: PRINT D$:FRINT 
1030 FOR I1=0 TO 4 
1040 : FOR J=0 TO 2 
1050 3 PRINT " "$CHR# (8); 
1060 : FOR K=0 TO 8 
1070 : FRINT CHR$ (27) +"H###"; 
1080 :  NEXT 
1090 : PRINT 
1100 : NEXT 
1110 : FRINT 
1120 NEXT 
1130 FRINT E$;"H";E$s "AJOQUEUR ROUGE ": 
1140 FRINT E$;"H";E$; "DJOUEUR ELEU M 
1150 FLOT 8,26,STR$ (0): FLOT 28,26,STR$ (0) 
1160 DIM A$(44) 
1170 FOR I=0 TO 22 
1180 : FOR J=0 TO 2 
1190 + IF I1:0 THEN A$(2#I1-1)=A$(2*1-1)+CHR$(64+1) 
1200 :  AS(2#I1)=AS (2x1) +CHR$(64+1) 
1210 : NEXT 
220 NEXT 
230 M=0:IF RND(1)2,5 THEN M=i 
1240 X(O0)=2:X(1)=20 
1250 X=FNR(9):Y=FNR(S) 
1260 REM MELANGE 
1270 FOR 1=0 TO 43 
1280 : FF=FNR(45-I)+1 
1290 : TTH=AS(I):A$S(I)=AS (FF): AS (FFI2TTS 
1300 NEXT 
1310 RETURN 
2000 REM ## INFOrmation ** 
2010 INF 2:FAPER O:CLS:DEF FNR(X)=INT (RND (1) #X) 
2020 Eg$=" "+CHR$ (27) : D$=ES+"J"+CHRS (4) : FRINT 
2050 N$=D$+"JEU DE MEMOIRE" 
2040 PRINT SPC(7)3N$:FRINT D$: PRINT: PRINT 
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O PRINT D#:SFCi{é); "de Cres Fosniouski":FRINT D$:FRINT 
2060 FRINT "C'est un jeu pour deux. À votre tour" 
2070 FRINT "vous pouvez retourner deux cartes. Gi" 
2080 FRINT "elles sont semblables, vous les " 
2090 PRINT "gardez et continuez. Sinon, les cartes": 
2100 FRINT "sont retournees et c'est le tour de” 
FRINT "l’autre joueur.":PRINT:WAIT 99 
ü PRINT "La carte qui clignote peut etre " 
O FRINT “retournee. Utilise: les curseurs pour" 
G FRINT “la deplacer. Puis tapez O pour la" 
Oo FRINT "retourner.":FRINT:WAIT 99 
D FRINT "Decidez maintenant qui sera le joueur" 
h PRINT "ROUGE et qui sera le BLEU.":FRINT 
D FRINT:FRINT:FRINT "Tapez 0 pour commencer."; 

Q REFEAT:G$=HEVS: GG=RND (1) :UNTIL G$="0" 
90 FOKE #26A,2 
9 RETURN 








LE PROGRAMME PRINCIPAL 


Il consiste en des boucles REPEAT/UNTIL. La première permet l’alternance 
entre les deux joueurs et continue jusqu’à épuisement des cartes. La seconde 
continue jusqu’à ce qu’une paire de cartes différentes apparaisse. La 
troisième permet aux joueurs de sélectionner deux cartes. 


LES SOUS-PROGRAMMES 


500 CHANGEment 
Ce sous-programme provoque ou arrête le clignotement d’une carte 
suivant que ZZ = 8 ou 12. 


600 DEPLacement 
Il modifie la position de la carte clignotante. 


700 OUI 
Si les deux cartes retournées sont semblables, ce sous-programme est 
utilisé pour les enlever du jeu. 


800 VISUalisation 
Ce sous-programme révèle les cartes aux joueurs. 


900 RETOurnement 
Ce sous-programme retourne les cartes vers la position face cachée. 
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1000 INITIalisation 

L'affichage est créé par ce sous-programme. Le tableau de variables 
A$(1) attribue une lettre à chaque carte. Le contenu de ce tableau est ensuite 
rendu aléatoire. 


2000 INFOrmation 
Il contient une brève description du jeu. 
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28. Le bourreau 


C’est le traditionnel jeu du pendu mais sans la pendaison ! A la place, un 
homme est forcé de monter une série de marches... Comme d’habitude, vous 
devez découvrir le mot sélectionné par l’ordinateur. Il vous indique le 
nombre de lettres de ce mot. A chaque fois que vous entrez une lettre, 
l’ordinateur vous dit si le mot contient celle-ci ou non. Si oui, la lettre est 
placée dans le mot, plusieurs fois s’il contient cette lettre plus d’une fois. Si 
vous entrez une mauvaise lettre, l’homme monte d’une marche. Au sommet 
de l'escalier se trouve une planche, après... 

Ne rentrez pas la même lettre deux fois, l’homme avancerait d’une 
marche vers son destin. 
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10 REM RAREMENT 
REM # LE FENDU # 
; REM HHHHAREREEEREEX 
40 REM 
50 CHOIX=500: QUI =600: NON=7 00: FAUX=800 
80 IHITIF1000: INFO=2000 
100 REM **% FROGRAMME FRINCIFAL #+% 
110 GOSUE INFO:GOSUE IHITI 
120 REFEAT 
150 : GOSUER CHOIX 
140 : REFEAT 
199 +  REPEAT:GET G$:UNTIL G$:"à" AND G$<"°" 
160 5  FRINT G$i" "3: BLANF=TRUE 
170 3 FOR I=i TO L 
180 : IF MID$(E$,1,1)=6$ THEN GOSUE QUI 
190 5  NEXT 
200 : IF ELANF THEN GOSUE NON 
2106 : UNTIL STATE=L OR NUMEER:9 
220 s PRINT:FRINT 
5 IF STATE=L THEN FING:WAIT 10:FPING:FLOT 1,5,12Z 
240 IF NUMBER:*9 THEN GOSUE FAUX 
290 : PRINT E$i"R"$E#$s"L Autre partie? O0 ou N" 
Zéÿ : REFEAT:GET G$:UNTIL G$="0" OR G$="N" 
270 UNTIL G$="N" 
280 CLS:FRINT "A bientot.":1NE 7:END 
300 REM #% CHOIX *# 
319 STATE=0: NUMRER=O0:CLS:FOR 1=0 TQ Z1:FRINT:NEXT 
d20 B$=R#CFNR (MAX) ):LELEN(ES) 
320 FLOT 0,1,10:PLOT 1,1,6:PLOT 0,2,10:PLOT 1,2,6 
940 FPLOT 0,3,9:PLOT 1,3,2:ER=INT(17-L) 
590 FOR I=E+2 TO E+2%xL STEP 2:PLOT I, 3, 44: NEXT 
 FLOT 0,5,2:FLOT 1,5,0:FLOT 14,5,'"BIEN JOUE" 
o FOR I1=1 TQ 6:FLOT 20-1I,10+1I,LEFTS#(CS$, I): NEXT 
ù PLOT 20,11,LEFT$(C$,2):PLOT 10,17,C 
190 FPLOT X(0),Y(0),27: RETURN 

O0 REM *% QUI #+* 
IF SCRN(E+2%1,1):22 THEN SHOOT:WAIT 20:RETURN 
20 FING:FLOT E+2#1,1,6G#:FLOT E+2+#1,2,G$ 

à STATE=STATE+1: BLANH=FALSE 

5 RETURN 
20 REM #%#% NON #+ 
Q FLOT X (NUMBER), Y (NUMBER) , 32 
20 ZAF: NUMRER=NUMEER+1 

5 FLOT X(NUMEEF), Y (NUMBER), 27 
RETURN 
REM #% FAUX #+* 
0 FOR 1=1 TO L 
Ë G$=MIDE(ERS,I.1):GOSUE OUI 
930 +: FLOT 22,9+41,32:FLOT 22,10+1,37 
5 NEXT 

50 FLOTE1,104L,"AIE!I":EXFLODE: WAIT 50 
B60 RETURN 
1900 REM **% IHITIalisation *# 


ra 
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1010 
1020 
1050 
1040 
1050 
1060 
1970 
1100 
1110 
1120 
1150 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 


220 






1240 
1250 
12680 
1290 
1300 
1310 
1:20 
1350 
2000 
2010 
2070 
20350 
2040 
2050 
2060 
2070 
2080 
20970 
2100 
2110 
120 


2170 
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MAX=-1: DIM R$(100) 
REFEAT:MAX=MAX+1:READ R$ (MAX) :UNTIL R$(MAX)="x" 
FOR 1=0 TO 10:READ X(I),Y(I):NEXT 


START=#R400+37*8: AA=#AGQOQ 


POFE AA,2:1F PEEK(AA)£52 THEN START=START-#8000 

FOR I=START TO START+7:READ R:POKE 1,R:NEXT 

RETURN 

REM #* DONNEES #+# 

DATA TABLE, CHAISE, LIVRE, OREILLER, CUBE, HYENE, POIGNET 
DATA VERRE, CUVETTE, TORCHE, CUISINE, TELEVISION, BOUTEILLE 
DATA HARICOT, SALUT, NOMMER, QUELLE, COUREUR, DOUZE, ZERRE 
DATA VOLEUR, SOLEIL, FINIR, DEVINER, CORNET, FAFILLON 

DATA VAINCRE, FLEURIR, COCHER, ROCHER, ORANGE, NOIRCIR 
DATA NULLITE, ELANCHIR, BEURRE, TRICHEUR, TABLEAU 

DATA VIANDE, TRAITER, THEATRE, PROGRAMME, VIOLET, GRISAILLE 
DATA GRAMMAIRE, ECOLE, SIGNE, FOSTE, COTE, EGLISE, LICORNE 
DATA CHAMBRE, TISSU, MANQUER, TEST, AOÛT, MINUTE, HEURE 
DATA ANIMAL, FOUSSIERE, DERUT, MANUFACTURE, ONCLE, BATEAU 
DATA ZO0M, VINGT, SCASH, TRICHER, MAGNIFIQUE, FEVRIER 

DATA DIAMANT, JANVIER, MARS, AVRIL, JUIN, JUILLET 

DATA _SEFTEMBRE, OCTOBRE , NOVEMERE , DECEMERE, COUSIN 

DATA DESSINER, TOMBER, NOTICE, OFFRIR, TRAVAIL, CALENDRIER 
DATA FOUDRE, SFHINX, ZYGOMATIQUE, VOLUME, ANCRE, DEHRANCHER 
REM place pour plus de mots... 

DATA *# 

DATA 12,16,13,16,14,15,15,14 

DATA 16,13,17,12,18,11,19,10 

DATA 20,10,21,10,22,10 

DATA 14,14,4,:1,14,14,10,10 

REM #* INFOrmation *%* 

INE S:PAFER O:CLS:DEF FNR(X)=INT (RND (1) #X) 

E$=" "4+CHR$ (27) : DH=<ES+"J"4+CHRSE (4) : PRINT 

FRINT D#:SFC(12)3"LE PENDU "sPRINT D$:FRINT:PRCNT 
PRINT D$:SFC(6): "de Czes Kosniowski":PRINT D$:PR°NT 
PRINT "Trouvez le mot avant que l’homme " 

PRINT "parvienne au sommet et tombe.........":FRINT 
PRINT "A chaque mauvaise lettre l’homme monte": 

FRINT "d'une marche...":PRINT 

PRINT "Tapez O pour commencer.": 
REFEAT:G$=FEY$: GG=RND (1) :UNTIL G$="0" 
PRINT:PRINT:PRINT "On y va..."; 

FOR 1=0 TO 9:C$=C$+CHR$ (255) : NEXT 

RETURN 


PROGRAMME PRINCIPAL 


Le programme principal attend que vous pressiez une touche (une des 
touches A à Z). Cette lettre est imprimée au bas de l’écran. Une vérification 
est faite pour voir si cette lettre est contenue dans le mot choisi par 
l'ordinateur. Si c’est le cas, le sous-programme oui est appelé, sinon le 
sous-programme NON est utilisé. Le processus complet se poursuit jusqu’à ce 
que 10 erreurs aient été commises ou que le mot ait été trouvé correctement. 


SOUS-PROGRAMMES 


500 CHOIX 

Il choisit un mot au hasard et crée l’affichage approprié sur l’écran. La 
variable c$ est formée de dix caractères cn (255)) et est utilisée pour créer 
les escaliers. 


600 OUI 

Si la lettre choisie par le joueur existe dans le mot, ce sous-programme 
est appelé pour afficher cette lettre. Remarquez que, si la lettre a déjà été 
choisie précédemment, cela vous est compté comme une erreur. 


700 NON 
Le choix d’une mauvaise lettre (ou une lettre déjà choisie) appelle ce 
sous-programme. Il fait gravir à l’homme une marche d’escalier. 


800 FAUX 
Si le mot n’est pas trouvé, l’homme tombe dans le précipice et 
l'ordinateur émet le son SPLAT. 


1000 INITIalisation 

Il lit les mots qui se trouvent en mémoire. Vous pouvez ajouter des mots 
ou changer très facilement ceux contenus dans les données (DATA). 

Le chemin suivi par l’homme pour grimper les escaliers est stocké dans 
les variables x(1), Y(1). 

Un caractère spécial, figurant l’homme, est nécessaire. 


2000 INFOrmation 
Ce sous-programme contient une brève description du jeu. 
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29. Trouvez les nombres 


Dans ce jeu l’ordinateur choisit des nombres. Vous avez à les trouver en 
utilisant les informations fournies par l’ordinateur. A chaque essai il vous 
sera dit combien de nombres corrects vous avez deviné. Un signal de couleur 
cyan est utilisé pour indiquer un nombre correct et bien positionné. Un signal 
de couleur magenta indique un nombre correct mais mal positionné. 

Vous êtes autorisé à dire combien de nombres l’ordinateur doit choisir. 
Vous pouvez également dire quel peut être le nombre maximum. Par 
exemple, vous pouvez demander à l’ordinateur de choisir trois nombres entre 
1 et 2. Cela donne un jeu plutôt facile. A l’autre extrême, vous pouvez 
demander à l’ordinateur de choisir neuf nombres entre 1 et 9. Cela sera 
beaucoup plus difficile. 





DECOUVREZ LES NOMBRES 
1 1 3133;-- 





























22 333: 
222111 2333:+ 
212112 3333-- 
212121 3333:: 
212211 333333 





BIEN JOUE — Vous l'avez fait en 6 
Une autre partie? O ou N 
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10 REM HO HREOREEEEEEDEDEDEDEEHEUE DEEE GENE 

2G REM * DECOUVREZ LES NOMBRES +* 

F0 REM JEHHE DE JE DE HEDE DE DE DE DE DEEE DE DEEE DEEE EE 

40 REM 

50 CHECH=500: ANSYER=700: SETUF=1000: INFO=Z000 

100 REM #* FROGRAMME FRINCIPAL ## 

110 GOSUR INFO:GOSUR SETUF 

120 REPFEAT 

130 : FOR I=1 TO NUMBER:CS$(I)=A$(I):NEXT 

140 : FLOT 1,0,T$:FING:REFEAT:UNTIL HEY$="" 

150 : FOR I=i TO NUMBER 

160 : REFEAT:GET G$:UNTIL G$:="0" AND G$:CHR& (49+RANGE) 
170 5: IF G$="O0" THEN STATE=TRUE: I=NUMBER 

180 :  PRINTGS+" "5: R$I)=6GS$ 

190 : NEXT 

200 +: FING:FLOT 1,9,S$ 

210 : IF NOT STATE THEN GOSUR CHECK 

220 : FRINT:PRINT: TRIES=TRIES+1 

230 UNTIL STATE 

240 IF STATE“O THEN GOSUR ANSWER 

250 IF STATE=1 THEN PRINT W#:TRIES 

260 WAIT SO:PRINT:FRINT E$+"L Une autre partie? o ou n" 
270 REFEAT:GET G#:UNTIL G$="0" OR G$="N" 

280 1F G$="0" THEN RUN 

296 CLS:INE 7:FRINT" À BIENTOT":END 

300 REM #x% CHECF *% 

Si0 Kp=""me yann 

520 FOR I=1 TO NUMBER 

520 5 IF CH(I)=R$S(I) THEN X=Xb+"° "sp(liæ"p:C#(T)e"c" 
540 NEXT 

550 FOR 1=1 TO NUMBER:FOR J=1 TO NUMBER 

S60 : IF CH(I)=E$(J) THEN Yé=Y#+"9 "ing (J)="R'iC#(li="C" 
970 NEXT:NEXT 

580 PRINT D$+FS+"F'AHR SAUT MAN EX SA DB+FB+UEM+YÉ+DÉ 

500 IF LEN(XS$)=24NUMEER THEN STATE=1:FING:WAIT 3O0:FING 
600 RETURN 

700 REM *#*# ANSWER #% 

719 FRINT'Etait-ce difficile?":SHOOT 

720 FRINT:FRINT"'La reponse est :":FRINT 

750 FOR I=1 TO NUMBER:FRINT A$CI)4" MS: NEXT 

740 FRINT 

750 RETURN 

1000 REM #+ GET UF *+# 

1910 FAFER O:INE 2:CLS 

FOR I1=1 TO NUMBER 

1050 : ASCI)=CHRS (AG+INT (RND (1) #RANGE ) ) 

1G40 NEXT 

1050 Té=CHR$(12)+"Tapez "+MIDS(STRS (NUMBER) ,2) 

1060 T$=T$+" nombres, entre 1 et "+MID#(STRS (RANGE), 2) 
1070 FOR I1=0 TO 33:S#=S$+" ":NEXT 

1080 STATE=FALSE : PRINT: PRINT: PRINT N$: PRINT 

1090 W$="HRIEN JOUE - vous avez trouve en " 

1100 RETURN 
















111 


REM #+ INFORMATION ++ 

à PAPER O:INE 7:CLS 

F$=CHRS (27) :E$=" "+pée DÉ=CHRE (6) 

N$=ES$+"A TRCUVEZ LES NOMBRES" 

9 FRINTCHRS (4) : PRINT EST NS: PRINT: PRINT 

2050 FRINT:FRINT E$+"J"+E#$4"E par Cres Kosniowski" 

Li PRINT CHRS (4): PRINT: PRINT 

5 FRINT'L'ordinateur va choisir quelques" 

5 FRINT'nombres que vous devrez deviner" 

5 FRINT'z partir des figures afficl . 

20 FRINT'"'Le symbole "+F+ "TAF S+ +FE+ H'+F#+"Banppar ait" 

LG PRINT" pour chague nombre d la bonne position. 

Q PRINT'Le symbole "AFS" L'ARSBERSEG MAR EE MAIRE SANG 

30 FRINT" apparait pour un bon nombre dans la mauvaise position" 

Hi FRINT:FRINT"Si vous voulez arreter et avoir la solution, tapez à" 

à FRINT:FRINT 

n FRINT'Combien de nombres voulez-vous que” 

à FRINT'"l'ordinateur choisisse? de 3 à 9: "4 

00 FEFEAT: G$=6EYS: GG=RND (1): UNTIL G$:"2" AND 
5 NUMEER=VAL (GH) :FRINT G 

\ PRINT:FRINT"Choisiscez la grandeur maximale des nombres, de ? à %: "3 

n REFEAT: G$=<FEYS#: GC=RND CL) sUNTIL G$:"i" AND G#<"i" \ 

Al PRINT G 

TiFRINT MOE,. Nous y allons! "S:WAIT 160 


























PROGRAMME PRINCIPAL 


La boucle principale attend à chaque essai que vous ayez fini de rentrer 
votre séquence de nombres. Ces nombres sont affichés et un test est fait, 
utilisant le sous-programme TEST, pour voir combien d’entre eux sont 
corrects. Le processus se poursuit jusqu’à ce que la séquence correcte ait été 
trouvée ou que le chiffre 0 soit pressé. En pressant le chiffre 0, vous pouvez 
abandonner. 


SOUS-PROGRAMMES 


500 TEST 

Ce sous-programme fait d’abord un test pour voir combien de nombres 
sont à la fois corrects et en bon ordre. Il fait ensuite un autre test pour voir 
combien des nombres restant sont corrects mais mal positionnés. 


700 REPONSE 
Si fest pressé, le programme principal est stoppé et ce sous-programme 
affiche alors la bonne réponse. 
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1000 INITIalisation 
Ce sous-programme choisit aléatoirement les nombres que vous aurez à 
deviner. 


2000 INFOrmation 

Ce sous-programme contient une brève description du jeu. Il demande 
également combien de nombres (NUMBER) l'ordinateur doit choisir et le 
maximum (RANGE) de ces nombres. 
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30. Ne soyez pas gourmand 


Si vous aimez les jeux de dés, en voici un pour vous. Il contient une 
bonne part de chance mais exige aussi un peu d’astuce. Ce jeu utilise deux 
dés qui ressemblent à des dés ordinaires excepté qu’il n’y a pas de nombre 1. 
Il est remplacé par une tête d’aspect lamentable. 

Vous jouez contre l’ordinateur. Le but du jeu est d’être le premier à 
atteindre un score supérieur à 100. L'ordinateur et vous lancez les dés à tour 
de rôle. Chaque tour peut comprendre plusieurs lancers (au moins un mais 
autant que vous voulez). Vous pouvez vous arrêter de lancer les dés quand 
vous voulez en pressant Q. Si vous obtenez une tête triste, votre tour est 
stoppé et votre score pour ce tour est nul. Si vous obtenez des tristes têtes sur 
les deux dés à la fois, votre tour est également stoppé mais c’est votre score 


JEU DE DÉS 


A vous. 
Pressez Q pour arrêter. 


NE SOYEZ PAS GOURMAND 


Votre score est 56 Mon score est 27 
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général qui se trouve ramené à 0. Si aucune tête n’apparaît, vous avez le 
choix entre lancer les dés à nouveau ou passer la main à l’ordinateur. Dans ce 


s 


dernier cas, le score de votre tour est ajouté à votre total général. 
L'ordinateur procède de la même manière : après quoi, c’est à nouveau votre 
tour. L’astuce est de décider quand stopper de jouer — rappelez-vous 
simplement : ne soyez pas gourmand. 

Nota : 

Les deux dés sont lancés aléatoirement et l’ordinateur ne triche pas. 


49 REM 
30 YQU=300:ME=500: DICE=7Q0: ADDUF=800: CARRY=900: INFO=1900 
100 REM #% THE MAIN FROGRAM ## 
119 GOSUB INFO: ANSWER=TRUE 
120 REFEAT 
150 + IF ANSWER THEN GOSUR YOU 
140 : IF ANSWER THEN GOSUR ME 
150 UNTIL NOT ANSUER 
160 FOR 1=0 TO 2:FING:WAIT SCG:NEXT 
170 PFRINT:FRINT E$s"B"SESgs"L AUTRE FARTIE? O OÙ N" 
180 REFEAT:GET G$: UNTIL Gé$="0" OR G$="N" 
IF G$="0" THEN RUN 
4 CLS:FRINT"'A BIENTOT'": FOHEHZGA, TZ: INE7 : END 
00 REM ## YOU%# 
1 STATE=FALSE : M=0: Ne: Fes SC=VYSC: T=0 
ï FLOT 14,4,"C'est a vous" 
19 REFEAT 
:FLOT 10,6."Appuyez sur { pour arreter" 
: REFEAT: UNTIL KEY#="" 
:GOSUR DICE:GOSUR ADDUF 
à : FLOTIG,6," ! 
sFRINT H$+" Votre score est "+STR#£CT) 
O s IF NOT STATE THEN GOSUE CARRY 
90 UNTIL STATE 
410 YSC=SC+T 
20 WAIT SO: FRINT H$:FRINT:FRINT J$ 
ü FLOT 1,20,"Votre score est "+STRE(YSC) 4" MEWAIT 100 
IF YVSC#100 THEN ANSHER=FALSE: FRINT H#5SFC (14) 5 US 
FLOT 14,4," sWAIT 50 
469 RETURN 
J00 REM ## ME #+% 











519 s STATE=FALSE: Mzû: Ni: PSFNR (20: +15: SC=MSC: TC 
320 FLOT 15,4,"A mon tour" 

539 REPEAT 

540 GOSUE DICE:GOSUE ADDUF 

900 PRINT H$+" Mon score est "4+STRE(T) 

360 : STATE=STATE OF (RND{1)<2,.5+2#(SC4+T{YSC)) 

370 5 IF SC+T+100 THEN STATE=TRUE 

380 : IF NOT STATE THEN FRINT:PRINTSFC (10): Y$ 
590 : WAIT 250:PRINTCHRS (11) +J$ 


00 UNTIL STATE 
610 MSC=SCA4T:UAIT SO:PRINT H$&:PRINT:FRINT JS 
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820 PLOT 20,20, CHR$ (5) +"Mon score est ce'+STR$(MSC)+" 
630 IF MSCH100 THEN ANSUWER=TALSE: PRINT H#+J$:SPC (15) 31% 
é40 FLOT 15,4," 3 

650 RETURN 

700 REM ## DICE #*+ 

719 FLOT 14,S,"LES DES ROULENT‘ 

REFEAT 

5 ESFNR (GE LEFNR (6) : MEM+N 

: FOR I=û TG SZ 

) FLOT X,Y+Z#I,HS(E, 1): FLOTX+Z,Y+D4I, E$(L, 1) 





: NEXT 
9 UNTIL EEY$="Q" AND PS OR M3F 
Q PLOT 14,2," és 





79 RETURN 

800 FEM +#+# ADD UF#*x 

810 IF K=0 OR L=0O THEN ZAF:T=0:STATE=TRUE 
820 IF H=0 AND L=û THEN EXFLODE:SC=û 

30 S=0:IFE%O AND L:0 THEN S=E+L+2: FING 
840 TET+S 
850 RETURN 
900 REM ##% CARRY ON ## 

910 FRINT:FRINTE#+"LVoulez:-vous relancer les des? O0 où N'" 
920 REFEAT:GET Gé: UNTIL G$="0" OR G$="N" 
950 PRINT CHR$(11)+J$ 

940 IF G#="N" THEN STÂTE=TRUE: RETURN 
950 RETURN 
1000 REM *x* INFORMATION *#* 

Gi INEZ : FAFERG:CLS:DEF FNRCX)=INT (RND(1)#X) 

20 E$=" "+CHRS (27) : DHSES+ UT UACHRS (4) : FRINT 

ES$="NE GSOYEZ FAS GOURMAND!" 

FRINTOS: SPC (7) ES: PRINTDS: PRINT: PRINT 

FRINTD#:SFC (8) "de Cres Fosgniowski":FRINTDS$:FRINT 

FRINT"'Ce jeu utilise deux des, Essayez" 

1070 FRINT'"'d'etre le premier a obtenir un score superieur à 100":FRINT 

1980 FRINT'"'Un coup consiste er ne serie de lances de des" 

1099 FRINT'Vous pouvez arreter quand vous le voulez,"s 

1100 PRINT" MAIS vous etes oblige d’arreter si vous cbtenez un ‘1° 
19 FRINT"(repere par une figure.)" 

n FRINT"Si vous obtenez une figure, votre score pour ce coup sera de 0" 

35 FRINT"Si vous obtenez ? figures, votre score total est ramene a ©": PRINI 

à FRINT'"'Appuyez sur 0 pour commencer" 

30 REPFEAT:G#$=KEYS#: GGERND (1) :UNTIL G$="0" 

D AGE" sounds S 
H(Q,Q)=Mé4 <a" HB(Q, lie" î 
3 H$(1,0)=" \ ":EB#(1,1)=" ":H$(1,2) 
o HF(2,0)=" N''sHBCD, 1e" À MERE CZ, D) EN " 
HO BST, O)E"N À "EBBCT ie" MaR$T,2)= UN 
D HHé4,GI=UN ON "rnb lie NO MsEHé(4,2is 
E$(SO)E"N ON "SEC, LE" Ms RSS, Z) = "UN 
X=9:Ye0:Z=12:CLG:FOFE #2GA, 2: INES 
FOR I=Y-2 TO Y+é:FLOT 0,1,9:NEXT 
G FLOT 0,4,1:PLOT 0,6,7 
D FLOT X-1,Y-1,A$:FLOTX-147,V-1,A$ 

















ZT 





1270 FOR I1=Y TO Y+4:FLOT X-1,1,BR#:PLOT X-142,1,B$:NEXT 
1280 PLOT X-1,V+5,CH:PLOT X-1+7,Y+5,C$ 

1290 Jé=CHR$ (14) : HE=CHRS (0) 4/8: WE= "VOUS AVEZ GAGNE" 
1300 I$="J"AI GAGNE":YS#="JE RELANCE LES DES" 

1310 FLOT 9,17,CHR$(6:+F# 

1329 RETURN 






PROGRAMME PRINCIPAL 


Le programme principal est une courte boucle qui se termine quand la 
valeur de ANSWER est fausse (FALSE). C’est le cas quand l’un des joueurs (vous 
ou l'ordinateur) atteint un score supérieur à 100. 


SOUS-PROGRAMMES 


300 VOUS 

Ce sous-programme est utilisé quand c’est votre tour de jouer. Il 
comprend une boucle qui s’achève quand vous décidez de stopper votre tour 
ou quand vous êtes forcé de le stopper à cause de l’apparition d’une tête. 


500 MOI 
Ce sous-programme est semblable au précédent sauf qu’il comprend la 
stratégie suivie par l’ordinateur. 


700 DES 
Le lancer de dés est exécuté ici. Comme vous pouvez aisément le 
vérifier, celui-ci est totalement aléatoire et sans tricherie. 


800 SCORE 
Le score de chaque lancer est calculé par ce sous-programme. 


900 CONTinue 
Ce sous-programme vous demande si vous voulez continuer de lancer les 
dés. 


1000 INFOrmation 

Il contient une brève description du programme, suivie de données pour 
les tableaux. Les variables A$, B$ et c$ sont utilisées pour dessiner un carré. 
Les variables B$(I, J) contiennent les schémas qui peuvent apparaître sur les 
dés. Par exemple B$(0,0), B$(0,1) et 8$(0,2) ensemble produisent la tête alors 
que 8$(3,0), 8$(3,1) et B$(3,2) engendrent un quatre. Remarquez que toutes 
ces variables sont affichées en utilisant les caractères alternés. 
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Annexe Î 


Sauvegarde de l'écran sur cassette 


Vous pouvez un jour vouloir sauvegarder sur cassette un dessin que vous 
avez créé sur l’écran, spécialement s’il est en haute résolution graphique et a 
mis un certain temps à se réaliser. Vous pouvez le faire facilement en suivant 
la méthode qui suit. 

Supposons que votre Oric est en mode HIREs et que votre dessin est prêt. 
Tapez alors ce qui suit (ceci dépend de la rture de votre Oric, 16k ou 48x). 


CSAVE «NOM», À # A000, E # BF3F (modèle 48K) 
CSAVE «NOM», À # 2000, E # 3F3F (modèle 16K) 


Puis enfoncez les touches PLAY et RECORD de votre magnétophone et 
enfin tapez RETURN sur votre Oric. 

Pour visualiser ensuite votre dessin, rembobinez d’abord votre cassette 
et ajustez le volume de sortie de votre magnétophone. Assurez-vous que 
l'Oric est en mode HIREs. Tapez alors ce qui suit : 


CLOAD «NOM», À # A000, E # BF3F (modèle 48k) 
CLOAD «NOM», À # 2000, E # 3F3F (modèle 16K) 


Faites alors RETURN sur l’Oric et PLAY sur le magnétophone. Le dessin 
devrait apparaître rapidement sur l’écran. Vous pouvez joindre les quelques 
lignes de sauvegarde qui suivent à vos programmes. Insérez dans ce cas dans 
le programme la commande cosuB 50000. 

Tapez les quelques lignes qui suivent. 


50000 REM ++ SAVE UTILITY ## 

50818 PRINT:PRINT 

50828 PRINT “Do you want the save this picture?" 
50830 PRINT "Y or N 1"; 

50048 REPEAT:GET GS$#:UNTIL 6$="Y" OR 6$="N" 


50050 IF 6$="N" THEN RETURN 

50868 PRINT:PRINT 

$0078 PRINT "Press RECORD and PLAY on your recorder"; 
50088 PRINT CHR#(148);SPC(18); "Press YŸ when ready"; 
50090 REPEAT:GET G#:UNTIL 6$="Y" 

50100 CSAVE “PICTURE" ,A#A000 ,E#BF3F 

$011@ REM Change details above for 16K aodel 

50120 PRINT:PRINT 

58130 PRINT CHR$(140);SPC(8);"Turn your recorder of{" 
S0140 PRINT CHR$#(148);SPC(11);"and press YŸ "; 

$0150 REPEAT:GET G$:UNTIL G6$="Y" 

50168 PRINT:PRINT 

50178 RETURN 
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Annexe 2 


Utilitaire de renumérotation 


Lorsque vous écrivez ou modifiez vos programmes, il vous arrive de 
vouloir renuméroter les lignes. Suit un court programme capable de 
renuméroter un bloc quelconque de lignes. Cependant, il n’aura pas d’effet 
sur les numéros de ligne appelés dans le programme. En d’autres termes, les 
expressions GOTO 999, cosuB 237, etc., ne seront pas changées. Pour 
contourner le problème (ce qui est fait dans ce livre), utilisez des expressions 
de la forme GOSUB BLANK où la variable BLANK reçoit une valeur dans les 
premières lignes du programme. Dans ce cas, après la renumérotation, vous 
n'aurez à changer que la valeur de BLANK et le programme marchera. 

Revenons au programme de renumérotation, tapez-le puis sauvegardez- 
le sous un nom, par exemple RENUMÉROTATION. Si ensuite vous tapez un 
programme, chargez d’abord RENUMÉROTATION puis tapez votre programme. 

Pour utiliser le programme de renumérotation, tapez RUN 60000 puis 
RETURN. L'ordinateur vous demande d’introduire quatre nombres : 


début, fin, numéro de la première ligne, incrément. 


Début et fin sont les numéros de la première et de la dernière ligne que 
vous voulez renuméroter. Numéro de la première ligne est le nouveau 
numéro de la première ligne et incrément est la différence entre deux lignes 
consécutives (habituellement 10). Tapez simplement les quatre nombres 
séparés par des virgules puis RETURN. Le programme renumérotera alors les 
lignes comme vous l’avez demandé. 


60000 REM #*# RENUMBER ## 

60818 PRINT “Type in 4 nuabers, separated by coanas* 
68828 PRINT “Block start, finish, New line no., inc" 
68830 INPUT X,Y,L,I 

680048 521283 

68858 REPEAT 

60068 s IF DEEK(S)>=X THEN DOKE S,L:LeL+I 

60076 : S=DEEK(5-2)+2 

60888 UNTIL DEEK(S)>Y OR DEEK(S)=68888 
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Attention : soyez attentif lorsque vous utilisez ce programme de 
renumérotation. Vous pouvez détruire votre programme par manque de bon 
sens. Assurez-vous que les lignes que vous renumérotez resteront toujours 
comprises entre les autres lignes. Par exemple, regardez le programme 
suivant. 


10 REM SAMPLE PROGRAM 
12 FOR I=1 TO 10 


14 PRINT 1 
16 PING 
18 WAIT 30 
28 NEXT 


Tapez RUN 60000 et entrez les nombres suivants : 
12, 16, 10, 10 


Cela va renuméroter les lignes 12 à 16, les nouveaux numéros 


commençants à 10 avec un incrément de 10. Le résultat est : 


18 REM SAMPLE PROGRAM 
16 FOR I=1 TO 18 


28 PRINT I 
30 PING 
18 WAIT 50 
26 NEXT 


Etrange, mais le programme marche encore. Vous pouvez retrouver le 
programme initial en utilisant RUN 60000 et en entrant les nombres : 


10, 100, 10, 2 
Revenez au programme initial et essayez RUN 60000 avec les nombres 
10, 20, 10, 0 


Le résultat est : 


140 REM SAMPLE PROGRAM 
10 FOR I=1 TO 10 


10 PRINT I 
14 FING 
10 WAIT 30 
18 NEXT 
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Une nouvelle fois : étrange, mais le programme marche encore. Enfin, 
revenez au programme initial et tapez RUN 60000 avec les nombres suivants : 


10, 20, 50, —-10 


ce qui donne : 


90 REM SAMPLE PROGRAM 
40 FOR I=1 TO 10 


30 PRINT I 
20 PING 

18 WAIT 30 
O NEXT 


Ce programme marche encore, mais essayez de supprimer la ligne 10! Il 
peut être très amusant de créer des programmes à l’aspect bizarre. Les 
problèmes apparaissent avec les instructions GosuB et Goro. Voici un 
exemple : 


18 REM ANOTHER SAMPLE PROGRAM 
12 GOSUB 20 

14 PING 

16 WAIT 30 

18 END 

20 PRINT "HELLO" 

22 RETURN 


Renumérotez ce programme (RUN 60000) avec les nombres : 
10, 18, 100, 200 


Le résultat est ci-dessous. Ce programme ne marchera pas. 


100 REM ANOTHER SAMPLE PROGRAM 
308 G60SUB 20 

500 PING 

708 WAIT 50 

900 END 

26 PRINT "HELLO" 

22 RETURN 
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Enfin, voici le programme de Chasse au trésor renuméroté d’une façon 
originale. Le programme marche mais vous ne pourrez le modifier, éditer 
une ligne est difficile (si vous voulez renuméroter vos programmes de cette 
façon, renumérotez d’abord les lignes de numéros élevés puis continuez en 
décroissant). 


O REM 4 

8 REM # TREASURE HUNT # 

O REM HAE à 

8 REM 

0 VIEW=1:SETUP=2:INFO=3 

O REM * THE MAIN PROGRAM # 

6 GOSUB INFO:G6O0SUB SETUP 

O REPEAT 

@ : PLOT X,Y,12:GET K$:KK=ASC(K$):PLOT X,Y,8 
0 : IF KK=32 THEN GOSUB VIEW 

6 : IF KK=B AND X>4 THEN X=X-2 

O@ : IF KK=9 AND X<30 THEN X=X+2 
6 : IF KK=10 AND Y£22 THEN Y=Y+2 
0 : IF KK=11 AND Y>2 THEN Y=Y-2 
@ UNTIL STATE | 

0 SHOOT:WAIT 40:PING:WAIT 40:PING 
O PRINT CHR$(14)+E$+"L";SPC(11);"WELL DONE" 

@ PRINT E$+"“A"+" Another go? YŸ or N" 

O PRINT CHR$(14)+CHR$ (11); :PING 

@ REPEAT:GET K$:UNTIL K$="Y" OR K$="N" 

@ IF K$="Y" THEN RUN 

@ CLS:PING:PRINT “Bye for now.":POKE #26A,3:END 
1 REM # VIEW # 

1 IF SCRN(X+1,Y)<235 THEN RETURN 

1 DIST=INT(SOR((MM-X) # (MM-X) + (NN-Y) # (NN-Y))7/2) 
1 A$=CHR$ (48+DIST) 

1 IF DIST»>9 THEN Af$="Xx" 

1 IF DIST>@ AND RND(1)€.5 THEN A$="?" 

1 PLOT X+1,Y,A$:STATE=DIST=8 

1 RETURN 

2 REM # SETUP +# 

2 CLS:PRINT SPC(11);"TREASURE HUNT":PRINT 

2 FOR I=1 TO 11 

2 5: PRINT SPC(3); 

2 : FOR J=0 TO 13 
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CA CA Ci Cd Ci Ci CA Ci Ci Ci Ci CA A A A UN ON NON NON NN NN © NN 1 


5 PRINT CHR$(27)+"H#"; 
: NEXT 

t PRINT:PRINT 

NEXT 

PRINT E$+"A Use cursor keys to aove." 
PRINT:PRINT E$+"D Press (Space bar? to view."; 
PRINT CHR$(11);CHR$(11);CHR$#(11) 

X=16:Y212 ‘INITIAL POSITION 
MM=2#INT(RND(9)#14+1)+2:NN=2#INT(RND(9)#11+1) 
STATE=FALSE 

RETURN 

REM * INFOrmation # 

POKE #26A,18 ‘Disables cursor and key click 

INK G:PAPER 3: CLS: PRINT 

E$=" "+CHR$(27):D$=E$+"J"+CHRS (4) 

PRINT D$;SPC(9);"TREASURE HUNT":PRINT D$ 
PRINT:PRINT 

PRINT D$;SPC(6);"by Czes Kosniowski":PRINT D$ 
PRINT:PRINT E$+"A Find the hidden treasure." 
PRINT "By pressing the (space bar> you will* 
PRINT “be told how far away the treasure is“ 
PRINT "approxinately. Sometimes a ? appears" 
PRINT "to confuse you. An X means that the" 
PRINT "distance is 1@ or aore. 600D LUCK" 
PRINT:PRINT E$+"B"+E$+"L . Press Y to continue." 
REPEAT:K#$=KEY$:K=RND(1):UNTIL K$="Y" 

RETURN 
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Annexe 3 


Notes de musique 


Les commandes Music nécessitent quatre nombres sur l’Oric. 
Canal, Octave, Note, Volume 
Note peut prendre une valeur quelconque entre 1 et 12; les autres 
nombres entraînent un message d’erreur. Ces nombres correspondent 


approximativement aux notes suivantes : 


do# 3 
sol 9 


1 
7 


do 2 
fa# 8 


ré 4 = ré# 5 = 6 = fa 
sol# 10 = la 11 = “lat 12 = si 


Il 
Il 
Il 


Pour jouer un air sur l’Oric, les données doivent avoir été introduites, 
généralement dans des intructions DATA. Les choses sont assez faciles si vous 
restez sur le même octave. Cependant, vous voulez souvent passer d’un 
octave à l’autre. L'utilisation des DATA pour indiquer l’octave voulu n’est pas 
nécessaire et prendrait trop de place. Cette annexe donne une méthode 
simple pour combiner les valeurs de l’octave et de la note en un seul nombre. 

L'idée est d’utiliser les nombres 1 à 12 pour le premier octave, les 
nombres 13 à 24 pour le second et ainsi de suite. Ainsi un nombre, noté R, 
donne à la fois la valeur de l’octave et de la note. Pour retrouver la valeur ocT 
de l’octave et celle NN de la note, utilisez les lignes qui suivent. 


OCT = INT(R-I)/12) 
NN = R — 12*OCT 


Avec ce schéma vous pouvez imaginer un clavier de piano. Entrer les 
notes devient ainsi facile. 


2 4 9 11 14 16 79 81 83 
1 31516 8 10 LULU | 
CDODEFGABCODE F GAB 
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Bien sûr, nous n’avons pas tout dit. Habituellement, nous mettons la 
commande de volume à 0 et nous utilisons un ordre tel que : 


PLAY 3, 0, 1, 2500: WAIT T 


Ceci contrôle la façon dont le son est produit (son mode) et le temps T 
pendant lequel la note est jouée. De cette façon, nos instructions DATA 
devraient contenir deux nombres R et T. La valeur de R indique à l’Oric 
quelle est la note et son octave alors que T indique sa durée. 

Ce procédé donnera une musique acceptable ; vous pouvez bien sûr être 
beaucoup plus aventureux... 
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